Hallo,
hab jetzt wirklich schon 3x das komplett Internet umgedreht und gesucht, bekomme es aber leider nicht hin!
Das möchte ich:
Ich möchte das der laufwerk ermittelt wird indem mein Projekt liegt (z.B. C:/) danach will ich das ich den Ordner "test" von der DVD auf den Desktop kopiere!! Also das Projektfile liegt auf ner DVD z.b. Laufwerk "E:\" das muss ich mit einer variable bestimmen da jedes Laufwerk bei jedem anders heist. Dann sollte das Projekt den Ordner "E:\test" auf den Desktop kopieren, am besten auch per variable wie "ALLUSERSPROFILE\Desktop\test"!
könnt ihr mir weiterhelfen Folgenden Code hab ich mir zusammengebaut aber der hat mir nicht geholfen! Komm immer eine Fehlermeldung "Pfad nicht gefunden"! Hoffe ihr könnt mir weiterhelfen!!
Sub copy_click()
Dim ALLUSERSPROFILE As String
ALLUSERSPROFILE = Environ("ALLUSERSPROFILE")
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "App.Path\test", "ALLUSERSPROFILE\Desktop\test"
Set objFSO = Nothing
End Sub
hab jetzt wirklich schon 3x das komplett Internet umgedreht und gesucht, bekomme es aber leider nicht hin!
Das möchte ich:
Ich möchte das der laufwerk ermittelt wird indem mein Projekt liegt (z.B. C:/) danach will ich das ich den Ordner "test" von der DVD auf den Desktop kopiere!! Also das Projektfile liegt auf ner DVD z.b. Laufwerk "E:\" das muss ich mit einer variable bestimmen da jedes Laufwerk bei jedem anders heist. Dann sollte das Projekt den Ordner "E:\test" auf den Desktop kopieren, am besten auch per variable wie "ALLUSERSPROFILE\Desktop\test"!
könnt ihr mir weiterhelfen Folgenden Code hab ich mir zusammengebaut aber der hat mir nicht geholfen! Komm immer eine Fehlermeldung "Pfad nicht gefunden"! Hoffe ihr könnt mir weiterhelfen!!
Sub copy_click()
Dim ALLUSERSPROFILE As String
ALLUSERSPROFILE = Environ("ALLUSERSPROFILE")
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "App.Path\test", "ALLUSERSPROFILE\Desktop\test"
Set objFSO = Nothing
End Sub