|
Hallo Newbie!
Ich gehe mal davon aus, dass an Txt und Txt2 die richtigen Werte übergen werden. Evtl. mal den dadurch generierten Pfad anzeigen lassen bzw. prüfen, ob es den Pfad gibt. Bei mir tritt ein Problem auf, da ich bei Application.GetOpenFilename() nicht nur den Dateinamen sondern auch den Pfad erhalte. Damit muss in deiner letzten Zeile eine Fehlermeldung erscheinen. Den der neue Pfad sieht dann so aus.
Ord & varDatei = "C:\Test\" & Txt & "\" & Txt2 & "\"& C:\.neue Pfad
WEiß jetzt nicht, ob du nur den Dateinamen oder auch den PFad erhältst - gehe aber mal davon aus, da ja der erste Wert bei myFSO.CopyFile auch ein Pfad+Dateinamen sein müsste. ZIehe dir aus VarDatei den Namen raus. bspw so
varDatei = Right(varDatei, InStr(1, StrReverse(varDatei), "\") - 1)
Dann lass dir mal Ord & varDatei anzeigen. ISt das jetzt ein richtiger PFad?
Falls das auch nicht geht und in varDatei ein Pfad steht (ggf. basteln) und Ord & varDatei auch ein richtiger Pfad ist, versuche es mal hiermit:
Anstelle des myFSO.CopyFile varDatei, Ord & varDatei setze
Name varDatei as Ord & varDatei
Damit speicherst du datei 1 unter dem Namen selben Namen in einem anderen Pfad.
Gruß
|