Spaties in bestandsnamen vervangen door underscores

Status
Niet open voor verdere reacties.
H

han2

Gebruiker
Lid geworden
21 dec 2004
Berichten
304
Niet alleen van toepassing op Word, maar wist niet waar ik de vraag anders moest plaatsen....
Als ik een document opsla, gebruikte ik daarbij altijd ook "gewoon" spaties.
Pas onlangs kwam ik tegen dat daarbij problemen konden optreden; zelf nooit iets van gemerkt.
Nu wil ik al die bestandsnamen gaan wijzigen door die spaties te vervangen door underscores.

Nu mijn vraag of er een programma of zo bestaat waarmee ik dit kan doen, of moet ik dit echt handmatig doen ?

Voordat iemand er een opmerking over maakt : ik snap zelf ook dat ik hiermee ook kan wachten tot
ik een bepaald bestand nodig heb en dan pas de aanpassing doe :p

Alvast bedankt voor het meedenken.
 
Een simpel VB scriptje kan dat en hoef je niet eens zelf te maken vanwege de legio voorbeelden die er zijn. Deze was voor net andersom maar heb ik voor je aangepast:
Code: 
'========================================================
' VBScript to replace space in file name with underscore
' for each files in a folder
' Written by ApOgEE of http://coderstalk.blogspot.com
'========================================================
Dim sName
Dim fso
Dim fol

' create the filesystem object
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
    
' get current folder
Set fol = fso.GetFolder(".")

' go thru each files in the folder
For Each fil In fol.Files
    ' check if the file name contains space
    If InStr(1, fil.Name, " ") <> 0 Then
        ' replace underscore with space
        sName = Replace(fil.Name, " ", "_")
        ' rename the file
        fil.Name = sName
    End If
Next

' echo the job is completed
WScript.Echo "Completed!"

Plaats dit in een leeg bestandje die je bijvoorbeeld han2.vbs noemt.
Sla op en sluit af.
Plaats het bestandje in de gewenste folder en dubbelklik er dan op.
Of voer het uit in een commandbox.
 
Laatst bewerkt:
Wow, dat is snel.
En zoooo blij dat er legio voorbeelden van zijn : maakt dat ik me minder een sufferd voel :D

Ik ga er z.s.m. mee aan de slag.
Mocht het niet lukken meld ik me weer.

Heel erg bedankt !
 
Bijna goed, lijkt mij beter om daadwerkelijk op spaties te checken en niet op underscores;
Code: 
If InStr(1, fil.Name, " ") > 0 Then
 
Yep! Die heb ik dus over het hoofd gezien :p
Aangepast.
 
zelf nooit iets van gemerkt.
Klik om te vergroten...
Heb er zelf ook nooit wat van gemerkt en gezocht naar voorbeelden maar kan deze niet vinden. Wel lees ik dat bij http en netwerk? niet kunnen en dan lees ik _ en %20.
In principe kun je spaties ook vervangen met een 'renamer' zoals Advanced Renamer (selectie slepen) of Métamorphose (op map > RMK > Métamorphose > Tabblad Kiezer > Files > Tabblad Hoofd > Zoeken en vervangen
 
In eerste instantie lukte het voor geen meter en ik dacht al dat het aan mij lag.
Tot ik de aanvulling van OctaFish las en daarna een poging waagde met de aangepaste code van edmoor.
Nu inmiddels bijna alle bestandsnamen aangepast.
Super bedankt voor jullie snelle hulp !
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan