När man har tråkigt…
Idag fick jag lite tråkigt. Rebecka sov, Pär var inte hemma, Erik såg på något tråkigt på tv och jag var helt less på att kolla på Scrubs så jag satte mig och gjorde ett litet vbscript som ger alla filnamn i en mapp ett prefix. Scriptet är till Mats på jobbet som har tusentals filer som ska läggas ihop, problemet är att många av dem har samma namn så för att skilja på dem behöver man döpa om dem.
’ prefix.vbs
’ André Laszlo 2008-02-14
’
’ Script för att lägga till ett prefix till alla filnamn i en katalog.
’
’ Använd scriptet genom att lägga det i samma katalog som filerna som ska få
’ prefixet. Kör sedan scriptet och ange prefix. Filer som redan har prefixet,
’ kataloger, filer i underkataloger samt scriptet själv döps inte om.
Dim prefix
prefix = InputBox(“Ange prefix”)
If prefix <> ”“ Then
Dim scriptName, scriptPath
Dim fso, folder, fileCollection, file
Set fso = CreateObject(“Scripting.FileSystemObject”)
scriptName = Wscript.ScriptName
scriptPath = Mid(Wscript.ScriptFullName, 1, Len(WScript.ScriptFullName) - Len(scriptName))
Set folder = fso.GetFolder(scriptPath)
Set fileCollection = folder.Files
For Each file in fileCollection
If file.name <> scriptName And Not (Mid(file.Name, 1, Len(prefix)) = prefix) Then
file.Move(prefix & file.name)
End If
Next
End If
’ André Laszlo 2008-02-14
’
’ Script för att lägga till ett prefix till alla filnamn i en katalog.
’
’ Använd scriptet genom att lägga det i samma katalog som filerna som ska få
’ prefixet. Kör sedan scriptet och ange prefix. Filer som redan har prefixet,
’ kataloger, filer i underkataloger samt scriptet själv döps inte om.
Dim prefix
prefix = InputBox(“Ange prefix”)
If prefix <> ”“ Then
Dim scriptName, scriptPath
Dim fso, folder, fileCollection, file
Set fso = CreateObject(“Scripting.FileSystemObject”)
scriptName = Wscript.ScriptName
scriptPath = Mid(Wscript.ScriptFullName, 1, Len(WScript.ScriptFullName) - Len(scriptName))
Set folder = fso.GetFolder(scriptPath)
Set fileCollection = folder.Files
For Each file in fileCollection
If file.name <> scriptName And Not (Mid(file.Name, 1, Len(prefix)) = prefix) Then
file.Move(prefix & file.name)
End If
Next
End If
