Поиск файлов

[burik]

Помогите, пожайлуста, найти ошибку в процедуре. Она ищет файлы в установленном каталоге, заданного формата:

Код: Выделить всё


Private Sub FindFiles(ByVal strPath As String)
Dim fileName As String

    Dir strPath
    SetText fileName, Dir '<<<< Здесь возникает ошибка "Invalid procedure call or argument"
    While fileName <> ""
        If (FSO.FolderExists(strPath & fileName)) Then
            FindFiles strPath & fileName
        ElseIf (FSO.FileExists(strPath & fileName)) Then
            If LCase(Right(fileName, 4)) = "." & FileDesk Then lvDrive.ListItems.Add , , strPath & fileName
        End If
        SetText fileName, Dir
    Wend

End Sub


Процедура SetText делает некоторые операции, в том числе присваивает переменной из первого параметра (fileName) значение второго параметра.

[Денис]

При вызове SetText, вместо этих констант:

Код: Выделить всё

vbCFLink   &HBF00   DDE conversation information
vbCFRTF   &HBF01   RichText Format
vbCFText   1   (Default) Text

Ты используешь служебное слово Dir

[Хакер]

Код: Выделить всё

LCase(Right(fileName, 4)) = "." & FileDesk

Только не говори, что так ты проверяешь расширение файла.

Процедура SetText делает некоторые операции, в том числе присваивает переменной из первого параметра (fileName) значение
второго параметра.

Только не говори, что кроме этого она ничего не делает.

Ты используешь служебное слово Dir

Нифига это не служебное слово. Это функция рантайма.

[Viper]

Код: Выделить всё

    SetText fileName, Dir '<<<< Здесь возникает ошибка "Invalid procedure call or argument"


Процедура SetText делает некоторые операции, в том числе присваивает переменной из первого параметра (fileName) значение второго параметра.

Вообще интересно, а что же хотел таки автор таким странным образом используя метод SetText?

[burik]

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

Сейчас я переименовал эту рпоцедуру в SetFileName, результат тот же. Меня напрегает то, что вот этот код работает:

Код: Выделить всё


Private Sub FindFiles()
Dim fileName As String

    Dir "C:\"
    SetFileName fileName, Dir
    While fileName <> ""
        Me.Print fileName
        SetFileName fileName, Dir
    Wend

End Sub


[Денис]

А воз и ныне там...
burik, Dir нельзя использовать, как переменную. Сделай ее, ну например MyDir или MyDoDir, только не Dir, ибо это, -

функция рантайма

[tyomitch]

Денис, ты не въезжаешь.
Перечитай его код.

[Денис]

Тьфу, тогда сами разбирайтесь.
Напоследок добавлю, что надо с FSO разобраться. либо вообще без него. Он мне субъективно не нравится за его глюки, прущие еще с 95 года.

[Хакер]

Тьфу, тогда сами разбирайтесь.

Неадекватная реакция.

[VVitafresh]

Напоследок добавлю, что надо с FSO разобраться. либо вообще без него. Он мне субъективно не нравится за его глюки, прущие еще с 95 года.

Какие глюки у fso? Ничего такого не слышал.

[burik]

Все, проблема решена. Просто в указанной папке были одни папки...
Я исправил:

Код: Выделить всё


Private Sub FindFiles(ByVal strPath As String)
Dim fileName As String

    Dir strPath,vbDirectory '<<<<<< добавил vbDirectory и все.
    SetText fileName, Dir
    While fileName <> ""
        If (FSO.FolderExists(strPath & fileName)) Then
            ReDim Preserve dirs(0 to ubound(dirs)+1)
            dirs(Ubound(dirs)) = strPath & fileName
        ElseIf (FSO.FileExists(strPath & fileName)) Then
            If LCase$(Right$(fileName, 3)) = FileDesk Then lvDrive.ListItems.Add , , strPath & fileName
        End If
        SetText fileName, Dir
    Wend

End Sub

P. S. Денис, я Dir использую именно как функцию райн-тайма Таким образом я просто получаю список файлов и папок, указанной папки.

[oliVer]

Пожалуйста, скажите, как в Эксель на один Лист заимпортить мелкие (18 строк) файлики из Фолдера (Директории). Очень выручите!

Подробнее? каждый файлик (дурацкого формата Nokia .vmg) более-менее нормально выглядит в экселе:

Столбец 1, строки 1-18:

BEGIN:VMSG
VERSION:1.1
X-IRMC-STATUS:READ
X-IRMC-BOX:INBOX
X-NOK-DT:20071012T160300Z
X-MESSAGE-TYPE:DELIVER
BEGIN:VCARD
VERSION:3.0
N:
TEL:+79261234567
END:VCARD
BEGIN:VENV
BEGIN:VBODY
Date:12.10.2007 16:03:00
...A v otvet ehidny autoreply,toka v nem ne ukazano,k komu obrashatsya v slu4ae,esli sosku4ilsya
END:VBODY
END:VENV
END:VMSG

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

То наступило бы счаздье! понимаете?

PS: Кроме вас мне не к кому обратиться: разругались со всеми айтишниками. Ибо я юзер, и тест полуфабрикатов задолбал.
Они даже переменные не проверяют - в одном приложении число с Кучей Знаков допустимо, а в другом, где используется эта же переменная, программа даёт сбой (рандомное отрицательное число). Разве это справедливо, что юзер, который и так в 10 вечера сваливает домой (а они в 6) должен строить в меру собственного понимания (эконом. фак) схемы взаимодействия приложений, припоминая школьный курс по QB? ..Чтобы убедиться, что продукт, который пойдёт на Продакшн не будет козлиться..

[burik]

oliVer, а причем тут VB и тем более эта тема?

[RayShade]

Я бы сделал как то так

Код: Выделить всё





fso = createobject("scripting.filesystemobject)



files=fso.getfolder("c:\").files



for i=1 to files.count



file = fso.getfile(files.item(i).path).openastextstream



r=1

do while not file.eof

activesheet.cells(r,i)=file.readline

r=r+1

loop



next i





[kibernetics]

fso must be replaced

[keks-n]

Ever.