Data copy von USB auf HDD
06.03.2020 12:05:45
USB
ich würde gerne in Excel auf Knopfdruck den Inhalt eines USB-Sticks auf eine HDD kopieren. Das funktioniert im ersten Fall sehr gut, da ich den Inhalt eines Ordners vom USB Stick kopiere.
Im 2. Fall möchte ich alle Daten/Ordner vom root Verzeichnis kopieren und das will so nicht funktionieren.
********************
Sub Copy_USB()
' Daten von USB Stick copieren
Dim filesystem As Object
Dim name As String
Dim intResult As Integer
Dim strPath As String
intResult = Application.FileDialog(msoFileDialogFolderPicker).Show
If intResult 0 Then
Sheets("AUSWAHL").Range("L2") = (Application.FileDialog(msoFileDialogFolderPicker _
).SelectedItems(1))
End If
If Sheets("WORKPAGE").Range("C9").Value = "ja" Then
UserForm1.Show
name = Format(Now(), "YYMMDD_hhmm_") & Sheets("WORKPAGE").Range("C7").Value & "_USB" & " _
_____Marker"
Else
name = Format(Now(), "YYMMDD_hhmm_") & Sheets("WORKPAGE").Range("C7").Value & "_USB"
End If
Set filesystem = CreateObject("Scripting.FileSystemObject")
filesystem.CopyFolder Sheets("AUSWAHL").Range("L2").Value, "D:\" & name
Set filesystem = Nothing
End Sub
********************
Wie kann ich das für beide Fälle zum Laufen bringen?
Danke!