W tym przykładzie wykorzystano instrukcję Name do zmiany nazwy pliku. Przyjęto, że istnieją określone katalogi lub foldery.

Dim StaraNazwa, NowaNazwa
' Zdefiniuj nazwy plików.
StaraNazwa = "PLIK1": NowaNazwa = "PLIK2"
Name StaraNazwa As NowaNazwa' Zmień nazwę pliku.

' W systemie Microsoft Windows:
StaraNazwa = "C:\KATALOG1\PLIK1": _
NowaNazwa = "C:\KATALOG2\PLIK2"
Name StaraNazwa As NowaNazwa' Przenieś plik i zmień
' jego nazwę.

' W systemie Macintosh:
StaraNazwa = "HD:FOLDER1: PLIK1": _
NowaNazwa = "HD:FOLDER2: PLIK2"
Name StaraNazwa As NowaNazwa' Przenieś plik i zmień

' jego nazwę.

Sub wypisz_pliki()

Dim sciezka As String, plik As String, licznik As Long
 With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then sciezka = .SelectedItems(1)
End With
If sciezka = "" Then Exit Sub
plik = Dir(sciezka & "\*.jpg")
Do While plik <> ""
    
    licznik = licznik + 1
    Cells(licznik, 1) = sciezka & "\" & plik
    plik = Dir
Loop
End Sub

Sub zmień_nazwy()
Dim i As Long
'nazwy docelowe w drugiej kolumnie, tylko nazwa z rozszerzeniem
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Dir(Cells(i, 1)) <> "" And Cells(i, 2) <> "" Then Name Cells(i, 1) As Cells(i, 2)
Next i

End Sub