Bestandnamen wijzigen

[jheesterbeek]

Hoi Forummers,

Ik heb een map (bijvoorbeeld C:\Test) met bestanden waarvan ik de namen wil veranderen (zonder de files te openen). De bestandsnaam is nu "Informatie van klantnummer 6543" en ik wil deze wijzigen naar "6543"

Wie kan me helpen om hiervoor een macro'tje te maken?

 

[Imod]

Hallo;
Als je de map C:\test opent
En je ziet dan de files
Tik je 2x op 1 file en dan kan je de naam wijzigen zonder deze te openen - of met de rechtermuisknop - naam wijzigen.
Ik weet niet of dit de bedoeling is??

mvg Imod

 

[hangmat]

Ik denk dat hij het automatisch wil laten doen. Logisch, als je 6543 klanten hebt.

Maar mischien kan het eenvoudiger. Staan de klantgegevens op nummer gesorteerd? Als er geen ontbrekende nummers tussen zitten, kan je van de eerste regel de tekst weghalen zodat alleen het klantnummer overblijft. Doe hetzelfde voor het tweede klantnummer. Sleep de selectie dan naar beneden voor alle gewenste regels.

Overigens hoef je een macro niet te schrijven, maar kan je die ook opnemen.

 

[jheesterbeek]

Bedankt voor de feedback zover.

Het gaat inderdaad om enkele honderden files, waardoor handmatig wijzigen niet echt een optie is. Ook de nummers volgen elkaar niet op.
Het gaat ook niet om namen in een cel, maar om bestanden in een map.
Ik wil een macro maken die de bestandnamen van alle bestanden in een map aanpast. In Dos had je daar het RENAME commando voor. Iets vergelijkbaars zoek ik voor VBA.

 

[W Bloemendal]

als de bestanden de zelfdenaam hebben met een nummer dan kun je deze met total commander(http://www.ghisler.com/)als je de bestanden selecteerd meervoudig benoemen

 

[jheesterbeek]

Ik ben eruit:

Public Sub RenameFiles()

Dim vFile As Variant
Dim Padded As String
Dim OrigPadded As String
Dim FullFile As String
Dim NewFile As String
Dim FileExt As String
Dim vDir, FileName

With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Selecteer een folder"
.Show
If .SelectedItems.Count = 0 Then
MsgBox ("Ophalen download-bestand gecanceled")
Else
vDir = .SelectedItems(1)
End If
End With

vFile = Dir(vDir, vbDirectory)

If vFile = "" Then
Exit Sub
End If

vFile = Dir(vDir & "\", vbDirectory)

Do Until vFile = ""
If vFile = "." Or vFile = ".." Then
vFile = Dir
ElseIf (GetAttr(vDir & "\" & vFile) And vbDirectory) = vbDirectory Then
vFile = Dir
Else
FullFile = vDir & "\" & vFile
FileExt = Right(vFile, 3)
NewFile = vDir & "\" & Mid(vFile, Len(vFile) - 7, 4) & "." & FileExt
Name FullFile As NewFile
vFile = Dir
End If
Loop
End Sub