Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Explorer in Userform


Betrifft: Explorer in Userform von: ALbin
Geschrieben am: 17.09.2017 21:23:02

Hallo Zusammen

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

  

Betrifft: AW: Explorer in Userform von: Peter(silie)
Geschrieben am: 18.09.2017 09:12:48

Hallo,

starte per Button doch einfach den Explorer... dafür
gibt es Application.FileDialog
(https://msdn.microsoft.com/de-de/library/office/ff836226.aspx)

Wenn du allerdings nicht den FileDialog bemühen willst, dann bin ich hier raus.
Suchst du bei Google nach: VBA Datei umbenennen/ löschen, kopieren...etc findest du sofort
für alles hunderte Beispiele.


Hier ein FileDialog Beispiel zum kopieren von mehreren ausgewählten Dateien:

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

Quelle: https://stackoverflow.com/questions/33986404/copying-multiple-files-selected-by-user-via-filedialog-to-newly-created-folder


Beiträge aus den Excel-Beispielen zum Thema "Explorer in Userform"