Как открыть все файлы с filelistbox - VB

Узнай цену своей работы

Формулировка задачи:

Помогите, люди. Нужно что бы програма автоматически открывала все файлы из заданной папки через filelistbox (файли xls).

Решение задачи: «Как открыть все файлы с filelistbox»

textual
Листинг программы
Private Sub Command1_Click()
 
    Dim fTmp As String
    On Error GoTo Err1
    cDlg1.CancelError = True
    cDlg1.InitDir = mstrLastDir
    cDlg1.DialogTitle = "Open File"
    cDlg1.Flags = cdlOFNExplorer Or cdlOFNAllowMultiselect
    'cDlg1.Flags = cdlOFNAllowMultiselect
    cDlg1.Filter = "Excel files (*.xls)|*.xls"
    'cDlg1.FilterIndex = 0
    cDlg1.ShowOpen
 
    fTmp = cDlg1.FileName
 
    'For i = 1 To Len(fTmp)
    'Debug.Print Mid(fTmp, i, 1), "-", Asc(Mid(fTmp, i, 1))
    'Next i
 
    If Len(fTmp) > 0 Then
 
        If InStr(1, fTmp, Chr(0)) > 0 Then
 
            Dim i1, i2 As Integer
            Dim fDir As String
            i1 = 1
            i2 = InStr(i1, fTmp, Chr(0))
            fCount = 0
            txt1.Text = ""
 
            While i2 > 0
 
                If fCount = 0 Then
 
                    fDir = Mid(fTmp, i1, i2 - i1)
 
                Else
 
                    fNames(fCount) = fDir & "\" & Mid(fTmp, i1, i2 - i1)
 
                End If
 
                'fNames(1) = fTmp
                'txt1.Text = txt1.Text & Mid(fTmp, i1, i2 - i1) & vbCrLf
                i1 = i2 + 1
                i2 = InStr(i1, fTmp, Chr(0))
                fCount = fCount + 1
 
            Wend
 
            fNames(fCount) = fDir & "\" & Mid(fTmp, i1, Len(fTmp) - i1 + 1)
            'txt1.Text = txt1.Text & Mid(fTmp, i1, Len(fTmp) - i1 + 1)
            'fCount = fCount + 1
 
        Else
 
            fNames(1) = fTmp
            'txt1.Text = fNames
            fCount = 1
 
        End If
 
    End If
 
    'fNames = cDlg1.FileName
    'txt1.Text = fNames
 
    Call ShowFileList
 
    Exit Sub
Err1:
    Exit Sub
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.5 из 5
Похожие ответы