Category : Filename

Home » Archive by category : Filename

Type everything between the lines into notepad:—————————————————————————-set fso = createobject(“scripting.filesystemobject”)Function GetPathpath = WScript.ScriptFullNameGetPath = Left(path, InstrRev(path, “”))End Functionpath2 = GetPathfolder = Left(path2, (Len(path2)-1))set folder = fso.GetFolder(folder)set files = folder.Filess = “”vCount = 0for each file in filesvCount = vCount + 1ReDim Preserve arFiles(vCount)Set arFiles(vCount) = filetempfilename = UCase(arFiles(vCount).name)file.name = “temp” & vCountfile.name = tempfilenamenext—————————————————————————–Save as ..

Read more