Как открыть все файлы с 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д