In base ad un elenco di foto che abbiamo riportato in un foglio di excel, abbiamo la necessità di spostare o copiare le foto in una nuova cartella destinazione
Per prima cosa, apriamo un foglio di excel dove definiamo in A1 e B1 la cartella origine e la cartellla destinazione
nella colonna cartella origine, riportiamo elenco delle foto origine e nella colonna destinazione elenco foto da spostare/copiare
La macro è la seguente:
Sub sposta_file()
Dim Origine As String
Dim Destinazione As String
Last_Row = ActiveSheet.Cells.Find(“*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 2 To Last_Row
Origine = Cells(i, 1)
Destinazione = Cells(i, 2)
Set fs = CreateObject(“Scripting.FileSystemObject”)
fs.copyFile Origine, Destinazione
Set fs = Nothing
Next i
End Sub
in questo caso la Macro copia i file… per spostare utilizzare l’istruzione fs.moveFile Origine, Destinazione