Lave alle txt filer om til php.

Kode 

Dim fso
Dim folder
Dim newfilename, oldfilename
Dim newext, oldext
Dim yourfolder
yourfolder = "D:\\test"
newext =     "php"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(yourfolder)
For Each file In folder.Files
     oldfilename = fso.GetFileName(file)
     oldext = Right(oldfilename,4)
     If oldext = ".txt" Then
          
          newfilename = LEFT(oldfilename,INSTR(oldfilename,".")) &newext 
          fso.MoveFile folder &"\\" &oldfilename, folder &"\\" &newfilename
     End if
Next

Du skal bare ændre variablen yourfolder, til den mappe du har filerne liggende i, den tager også aller undermapperne med.

MvH

Stefan Svensson
http://fusket.frac.dk

Hey!
Jeg har over 300 PHP filer på min computer.
Problemter opstår, da jeg pludselig opdager alle er gemt som txt filer.
Nogen der ved hvordan man kan lave et program i Delphi hvor man ændre alle filer med efternavnet txt til PHP?

På forhånd tak.
/mvh mig.

Hey!
Jeg har over 300 PHP filer på min computer.
Problemter opstår, da jeg pludselig opdager alle er gemt som txt filer.
Nogen der ved hvordan man kan lave et program i Delphi hvor man ændre alle filer med efternavnet txt til PHP?

På forhånd tak.
/mvh mig.
Ellers hvis du skulle være rektig smart kunne du bare lave en .bat fil som indeholdte Linien "ren *.txt *.php" .. Mere skal der ikke til

[Redigeret d. 18/12-04 00:11:42 af Dini]

Og så lige omskrive koden til pascal




-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ W++ w PS X+ tv+ b D G e- h! !r z--
------END GEEK CODE BLOCK------

Hey!
Jeg har over 300 PHP filer på min computer.
Problemter opstår, da jeg pludselig opdager alle er gemt som txt filer.
Nogen der ved hvordan man kan lave et program i Delphi hvor man ændre alle filer med efternavnet txt til PHP?

På forhånd tak.
/mvh mig.
Ellers hvis du skulle være rektig smart kunne du bare lave en .bat fil som indeholdte Linien "ren *.txt *.php" .. Mere skal der ikke til

[Redigeret d. 18/12-04 00:11:42 af Dini]
Men den tager ikke filer i undermapper med.

MvH

Stefan Svensson
http://fusket.frac.dk

Nå nej det gør den hellerik ... Men vidste ik LIGE at der også skulle være undermapper med