Auch nach langer Suche, habe ich Nichts gefunden. :-(
Hat jemand eine Beispiel, eine Art MS-Explorer in einer Userform drin? Wo ich File löschen / renamen / kopieren usw kann.
Super wärs, als Download - Datei.
Danke für Eure Hilfe-
Albin
Foldername = "Dein Ordner-Name"
Path = "Dein Pfad"
Set openDialog = Application.FileDialog(msoFileDialogFilePicker)
openDialog.AllowMultiSelect = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
If openDialog.Show = -1 Then
If Dir(Path & Foldername, vbDirectory) = "" Then
MkDir Path & Foldername
End If
For i = 1 To openDialog.SelectedItems.Count
myfile = openDialog.SelectedItems.Item(i)
objFSO.CopyFile myfile, Path & Foldername & "\"
Next