05. november 2008 - 11:15Der er
3 kommentarer og 1 løsning
Rename filer hvis der eksistere 2 filer med samme navn
Hej
Jeg har en folder med 2 typer filer XML og noget jeg kalder READ. Hvis der eksistere en XML fil og en READ fil med samme navn (f.eks. filnavn1.XML og filnavn1.READ) da skal XML omdøbes og READ fjernes. Er der nogle som kan give lidt hjælp til strukturen. Jeg skal have et gennemløb af filerne i den pågældende mappe vha. FOR IN Dos funktionen, og hvor jeg derefter tester de fundne XML filer om de har en navnebror af READ filtypen.
Set fso = CreateObject("Scripting.FileSystemObject") Set dir = fso.GetFolder("C:\") For Each f In dir.Files If Right(f.Name, 4) = ".xml" Then f2 = Replace(f.Path, ".xml", ".read") If fso.FileExists(f2) Then Call fso.DeleteFile(f2) Call f.Move(f2) End If End If Next Set dir = Nothing Set fso = Nothing
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.