Выбрать не один а сразу несколько файлов?

[dotez]

Собственно ситуация такая есть в проге встроенный фтп клиентик который по нажатию кнопки скачивает определенный файл, код выглядит так-

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

Dim lTimer As Long
   Dim strRemote As String

  mFTP.SetFTPDirectory (txtDirect.Text)

   strRemote = Trim("3.txt")

   lTimer = Timer
   If strRemote <> "" Then

              If Not mFTP.FTPDownloadFile("3.txt", strRemote) Then

                   MsgBox mFTP.GetLastErrorMessage
                Else
                   MsgBox "Загрузка завершена за " & Format(Timer - lTimer, "###,##0.00") & " секунд."
              End If
           End If

Собственно как видно это файл 3.txt так вот теперь задача стоит такая чтобы он скачивал ВСЕ файлы из данной директории с расширением .txt
пробовал вот так- *.txt не помогает.....
перечислять файлы я не могу так как названия у них всегда разные, нужно его заставить качать именно ВСЕ.txt ))

И еще момент, при этом раскладе он скачивает файл просто в папку где находится сама прога, а как прописать ему конкретную папку куда их все скачивать?

[ProgEXEr]

Что это за модуль (класс) mFTP? Приведи его исходный код.

[dotez]

Собственно я решил пойти немного другим путем, есть listview в который теперь вывоится весь список файло вот такой функцией-

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

Public Function GetDirectoryListing(sFilter As String) As cDirList
    Dim szDir As String             'В·ѕ¶
    Dim hFind As Long               'С°ХТѕд±ъ
    Dim nLastError As Long          'ЧоєуТ»ёцґнОу
    Dim dError As Long              'ґнОу
    Dim ptr As Long                 'ЦёХл
    Dim pData As WIN32_FIND_DATA    'КэѕЭ
    Dim sFilename As String         'ОДјюГы
       
    Set mDirCol = Nothing
    hFind = FtpFindFirstFile(hConnection, sFilter, pData, 0, 0)
    nLastError = Err.LastDllError
    If hFind = 0 Then
        If (nLastError <> ERROR_NO_MORE_FILES) Then
            ErrorOut Err.LastDllError, "FtpFindFirstFile"
        End If
        Exit Function
    End If
   
    dError = NO_ERROR
    Dim bRet As Boolean

    sFilename = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
    mDirCol.Add pData.dwFileAttributes, Win32ToVbTime(pData.ftCreationTime), Win32ToVbTime(pData.ftLastAccessTime), Win32ToVbTime(pData.ftLastWriteTime), pData.nFileSizeLow, sFilename
    Do
        pData.cFileName = String(MAX_PATH, 0)
        bRet = InternetFindNextFile(hFind, pData)
        If Not bRet Then    'іцґн
            dError = Err.LastDllError
            If dError = ERROR_NO_MORE_FILES Then
                Exit Do
            Else
                ErrorOut Err.LastDllError, "InternetFindNextFile"
                InternetCloseHandle (hFind)
                Exit Function
            End If
        Else
            sFilename = Left(pData.cFileName, InStr(1, pData.cFileName, _
                String(1, 0), vbBinaryCompare) - 1)
            mDirCol.Add pData.dwFileAttributes, Win32ToVbTime(pData.ftCreationTime), _
                    Win32ToVbTime(pData.ftLastAccessTime), Win32ToVbTime(pData.ftLastWriteTime), _
                    pData.nFileSizeLow, sFilename
            'МнјУРВФЄЛШ
        End If
    Loop
       
    Set GetDirectoryListing = mDirCol
    InternetCloseHandle (hFind)
End Function

вот где тут ему можно поставить ограничение чтобы выводился только список .TXT файлов?

[Antonariy]

Перед mDirCol.Add.
Эта функция ничего не выводит в listview, она составляет коллекцию найденных файлов.

[dotez]

И как это сформулировать?? я пртсо не представляю как в коде может выглядеть ограничение на расширение...

[Antonariy]

Проверить последние три символа имени файла.

[dotez]

Напишите кто нит стрчоку такой проверки, я проверю, будет работаь или нет.

[Antonariy]

Ппц... А сколько пафоса, пойти, мол, другим путем... Может пойти в асфальтоукладчики?

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

If Right(sFilename,3)="txt" then

[dotez]

спасибо, все заработало;)

[alibek]

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

If Right(sFilename,3)="txt" then

Следовало бы привести к одному регистру. И проверять 4 символа, а не 3.
И чем не нравится like?