VBA movefile

Hallo
Ich habe einen Pfad und darunter die Dateiliste, rechts neben den Dateinamen der neue Pfad.
Mit meiner gebastelten Lösung bekomm ich verschiedene Fehler, wohl durch die Verwendung von Const, ich weiss gar nicht was das ist, somit steh ich an :-(
pfad = ActiveCell
Do While ActiveCell ""
Const Quelldatei As String = pfad & ActiveCell 'pad und Datei
If Right(ActiveCell.Offset(0, 1), 1) = "/" Then pfadneu = ActiveCell.Offset(0, 1) Else pfadneu = ActiveCell.Offset(0, 1) & "/"
Const Zieldatei As String = pfadneu & ActiveCell
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile STRQUELLE, STRZIEL
End If
ActiveCell.Offset(1, 0).Select 'Leseposition verändern
Loop

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA movefile

12.08.2022 11:58:05

Oberschlumpf

AW: VBA movefile

12.08.2022 13:08:10

Daniel

bitte, gerne...

12.08.2022 13:19:10

Oberschlumpf

AW: VBA movefile

13.08.2022 13:07:01

snb

Dim Quelldatei As String, Zieldatei As String pfad = ActiveCell Do While ActiveCell "" Quelldatei = pfad & ActiveCell 'pad und Datei If Right(ActiveCell.Offset(0, 1), 1) = "/" Then pfadneu = ActiveCell.Offset(0, 1) Else pfadneu = ActiveCell.Offset(0, 1) & "/" Zieldatei = pfadneu & ActiveCell Dim objFSO As Object Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFile Quelldatei, Zieldatei End If ActiveCell.Offset(1, 0).Select 'Leseposition verändern Loop

Hi Oberschlumpf,
Super coool, Danke Dir vielmals so geht es sehr gut :-D auch Danke für die superprompte Antwort = Top


Sub Batch_Move_Dateien() 'Basierend auf der automatisch erstellten Liste,
'alter Speicherort = Aktuelle Zelle  Neue Speicherorte jeweils eins rechts davon > Cursor auf oberste Zelle mit Pfad stellen
'Wenn rechts der Datei kein neuer Pfad steht wird die Datei übersprungen
a = MsgBox("Sind folgende Bedingungen erfüllt?" & vbLf & "Cursor steht auf dem Pfad?" & vbLf & "darunter ist die Liste mit den aktuellen Dateinamen," & vbLf & "rechts davon sind die allfällig neuen Lokationen ?", vbYesNo, "ACHTUNG")
If a = 7 Then Exit Sub
Dim Quelldatei As String, Zieldatei As String
pfad = ActiveCell
Do While ActiveCell  ""
If ActiveCell.Offset(0, 1)  "" Then 'Nur verschieben wenn rechts ein neuer Pfad angegeben ist.
Quelldatei = pfad & ActiveCell 'pad und Datei
If Right(ActiveCell.Offset(0, 1), 1) = "/" Then pfadneu = ActiveCell.Offset(0, 1) Else pfadneu = ActiveCell.Offset(0, 1) & "\"
Zieldatei = pfadneu & ActiveCell
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile Quelldatei, Zieldatei
End If
ActiveCell.Offset(1, 0).Select 'Leseposition auf nächste Datei
Loop
MsgBox "fertig, bitte prüfen :-)"
End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA movefile

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread