ich habe ein Problemchen. Und zwar möchte ich Dateien von einen Odner in einen anderen kopieren (lassen).
Leider ist der Pfad in den kopiert werden soll mit Benutzerabhängig.
Zum kopieren habe ich diesen Code:
Sub Backup()
Dim strPfad1$, strPfad2$, strName$
strPfad1 = "C:\Users\username\Desktop\Test_voll"
strPfad2 = "C:\Users\username\Desktop\Test_leer"
strName = Dir$(strPfad1 & "\*", vbNormal)
Do Until LenB(strName) = 0
If Not CreateObject("Scripting.FileSystemObject").FileExists(strPfad2 & "/" & strName) Then _
FileCopy strPfad1 & "/" & strName, strPfad2 & "/" & strName
strName = Dir$
Loop
End Sub
Ich dachte mir ich erstelle eine Variable mit:Dim strName As String
strName = Environ("Username")
Weiß aber nicht wie ich das dann in den Pfad bekomme.
Könnt ihr mir da weiterhelfen?
Vielen Dank vorab.
Gruß
Thomas