Private Sub CommandButton1_Click()
Dim Fso As FileSystemObject
Dim Fld As Folder
Dim SubFld As Folder
Dim vntFld
On Local Error GoTo Err_In_CommandButton1_Click
vntFld = InputBox("Path eingeben", "Path", "C:\Temp")
Set Fso = New FileSystemObject
Set Fld = Fso.GetFolder(CStr(vntFld))
Me.ComboBox1.Clear
For Each SubFld In Fld.SubFolders
Me.ComboBox1.AddItem SubFld.Name
Next SubFld
Exit Sub
Err_In_CommandButton1_Click:
If (Err.Number = 70) Then ' Permission denied
Me.ComboBox1.AddItem "Permission denied"
ElseIf (Err.Number = 76) Then ' Path not found
MsgBox "Pfad """ & CStr(vntFld) & """ nicht gefunden.", vbExclamation
Else
MsgBox "Runtime Error in Procedure CommandButton1_Click. Error Number : " & _
Err.Number, vbCritical, "Severe"
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen