Editere string med vbs script

Du kan bruge Mid til at hendte en karakter.:

str = "abcdefghijkl"
'Lig karakter 1,4 og 6  ind i en ny streng
nyStr = Mid(str,1,1) & Mid(str,4,1) & Mid(str,6,1)

Så indeholder nyStr : "adf"


Så kan du bruge FileSystemObject (FSO) til rename filen:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "FilnavnetNu.txt", nyStr & ".txt"

Takker så veldig mye !!! Dette reddet dagen min!!