Visual Basic 6.0 - Как создать массив файлов по расширению?

Здравствуй, Dmitriy !








Эдак я вытащу все подряд "*.dbf" , а мне надо ТОЛЬКО из конкретных директорий:-(

Всего тебе наилучшего, Dmitriy!
_ Владимир. _



* Origin: Privat (2:5080/1003 [@] fidonet)





Здравствуй, A. Skrobov!














Вот и я приблизительно так пробовал... да только не хотит этот самый "Dir "
воспринимать внутри кавычек маску "*" для каталогов (хотя в учебнике написано, что должОн). Для имен файлов понимает, а для каталогов - нет.
Как только подставляю реально существующую директорию - все нормально срабатывает, как только подставляю любую маску в имя каталога - сразу же выбрасывает Err 52 "Плохое имя файла или номер":-(

Всего тебе наилучшего, A. Skrobov!
_ Владимир. _



* Origin: Privat (2:5080/1003 [@] fidonet)


Hello, Vladimir!

Skrobov on 24 Jul 04 16:35:30:



[Sorry, skipped]






Ага, понятно. Вот:
=========Beginning of the citation==============
Option Explicit

Sub Main()
'"c:\Program Files\Proga*\*\DataDbf\*.dbf"
Dim s As String, sdir As String, subdir As String
Dim Result As String, v As Variant, w As Variant
s = Dir("c:\Program Files\Proga*", vbDirectory)

sdir = sdir & s & vbCrLf
s = Dir
Wend
For Each v In Split(sdir, vbCrLf)

s = Dir("c:\Program Files\" & v & "\*", vbDirectory)


subdir = subdir & s & vbCrLf
s = Dir
Wend

For Each w In Split(subdir, vbCrLf)

s = Dir("c:\Program Files\" & v & "\" & w &
"\DataDbf\*.dbf", vbDirectory)


Result = Result & "c:\Program Files\" & v & "\" & w
& "\DataDbf\" & s & vbCrLf
s = Dir
Wend
End If
Next
End If
Next
MsgBox Result
v = Split(Result, vbCrLf)
End Sub

=========The end of the citation================
Массив получается в переменной v, причём последний элемент пустой.
* Origin: "Oh-oh!" Sally said. "Don't you talk to that cat." (2:5080/1003.16)


Мы где-то виделись, Vladimir?









Hу так поправь чуток код, чтобы он начинал искать не с корневого каталога, а с
того, что тебе нужен. Это ведь не так сложно, верно?

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Мы где-то виделись, Vladimir?







Должен, да. Только еще нужно указать вторым параметром атрибут vbDirectory.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)




Доброго времени суток, Aртём.!
Sat, 24 Jul 2004 09:26:52 +0400 Вы писали to Klim Omelchenko:








Всё равно его не брошу, буду учить качать HTTPmail




Вот только когда он тянет что нибудь более-менее крупное, прога как-бы
подвисает...
И ещё, что за ошибка 40006 Wrong protocol or connection state for the
reqested transaction or reqest (?)


____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Golden Telecom (2:5020/400)





Здравствуй, A. Skrobov!



[Сокращено]











Спасибо! Заработала!

Хотя в начале меня озадачил один интересный эффектец, дававший ошибку: в "c:\Program Files\" лежал одноименный директории "ProgaName" архив единым zip-файлом (когда-то подстраховывался при отладке и забыл удалить), и при последнем вызове
s = Dir("c:\Program Files\" & v & "\*", vbDirectory)
происходила ошибка, т. к. в список sdir, не смотря на флаг "vbDirectory", попадал и этот файл , у которого ес-сес-но не может быть поддиректории :-)) Вот так своеобразно срабатывает маска в имени каталога! Будем теперь знать. Hо это уже мелочи... причем, даже, полезные!

А главное, я теперь понял в чем была фича - маска в названии директории корректна только в самом конце, перед кавычками, и спокойненько возвращает имя последнего по вложению каталога (и файла не смотря ни на какие флаги!) - того в котором она присутствует.

Вопрос снят, всем спасибо за советы!

Всего тебе наилучшего, A. Skrobov!
_ Владимир. _



* Origin: Privat (2:5080/1003 [@] fidonet)


Hi Terekhin!

24 июля 2004 17:09, Terekhin Alexandr писал A. Skrobov:





















Боюсь ошибиться, но y меня оно выскакивало когда поpт был занят...








Bye Terekhin!
[ID-slash]
[slash]-[2:6000/14.4]
[2:6000/14.4]

* Origin: -------------- (2:6000/14.4)




Доброго времени суток, Dmitriy!
Fri, 23 Jul 2004 14:53:12 +0400 Вы писали to Terekhin Alexandr:






OK, обнаружилась, вот интересно msxml.dll есть во всех системах, или всё
таки библиотеку с собой таскать?

И ещё, вот решил поиграться:
=========Beginning of the clipboard==============
Dim strConnectString$, strSQL$, strHeading$
Dim cnn As ADODB.Connection
Dim rs As Recordset
Private Declare Function ExportXML Lib "msxml.dll" (ByVal rs As
Recordset, strHeading As String, Filename As String) As Long

Private Sub Form_Load()
strConnectString = "Provider=Microsoft.Jet.OLEDB.3.51;" & "Persist_
Security Info=False;" & "Data Source=C:\file1.mdb"
strSQL = "Select FirstName +' ' + LastName as Name, " & "BirthDate, Height_
as H" & " from tab1 Order by LastName, FirstName"
strHeading = "Test XML Sample"
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open strConnectString$
Set rs = cnn.Execute(strSQL)
^^^^^^^^^^^^^^^^^^^^^^^^^^^ - на этой строке ругается
Call ExportXML(rs, strHeading$, "c:\file1.xml")
End Sub
=========The end of the clipboard================
Говорит, мол:" Отсутствует значение одного или нескольких требуемых
параметров "

____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Golden Telecom (2:5020/400)


Мы где-то виделись, Terekhin?







Придется таскать. Hо это не более +600 кб к дистрибутиву.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)