08. maj 2008 - 14:47Der er
4 kommentarer og 1 løsning
Omdøbningsscript
Jeg er løbet ind i et akut problem med at 1000 billedfiler skal omdøbes og har meget knap tid. Jeg ved man kan med FSO. Er der nogen der er friske til at lave et script til mig, så jeg alligevel kan nå at pakke og og rejse ;)
Her er et eksempel på en fil: Art.255_redaktionensBillede.jpg skal omdøbes med et ekstra nul sat ind som her: Art.0255_redaktionensBillede.jpg
<% mappe = "billeder" set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFolder(server.mappath(mappe)) for each file in f.files filename = file.name if lcase(right(filename,3))="jpg" then nytfilnavn = (split(filename,".")(0)) & ".0" & (split(filename,".")(1)) & "." & (split(filename,".")(2)) fs.MoveFile server.mappath(mappe & "/" & filename), server.mappath(mappe & "/" & nytfilnavn) end if next set f=nothing set fs=nothing %>
- denne skulle kunne gøre det... du skal bare lige angive mappen...
Der manglede .jpg, men jeg puttede det bare på endelsen ;)
Synes godt om
Ny brugerNybegynder
Din løsning...
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.