[VBS] Character uit bestandsnaam verwijderen

[Johnny E]

Ik ben op zoek naar een script welke binnen een directory naast een rename ook een character uit een bestandsnaam kan halen.

Dat wil zeggen; in directory c:\test staan bestanden met de volgende naam opmaak TTFILE00-0123.
Aan de bestandsnaam van deze bestanden moet een p worden toegevoegd en ook .AMV als extensie, daarnaast moet het - worden verwijderd.

Het toevoegen van de p en de extensie heb ik reeds met het onderstaande script, het verwijderen van de - lukt echter niet

---

<sup>strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='C:\test'} Where " _
& "ResultClass = CIM_DataFile")

For Each objFile In colFileList
strNewName = objFile.Drive & objFile.Path & "p" & _
objFile.FileName & "." & "amv"
errResult = objFile.Rename(strNewName)
Next</sup>

[P_de_B]

code:

nieuweNaam = REPLACE(oudeNaam, "P", "")

[whoami]

Met een beetje zelf zoeken, testen en de juiste functie te gebruiken, moet het je wel zelf lukken.

Het is niet de bedoeling van P&W dat je anderen hier jouw script laat debuggen; dat moet je zelf ook kunnen.

[ Voor 28% gewijzigd door whoami op 23-05-2005 10:10 ]