Omdøbe filer i mappe

ssFDESKTOP = &H0 
ssFFLAGS  = &H1               
ssFTEXT    = "Omdøb filer i folder"

sSelectedPath = SelectFolder (ssFDESKTOP, ssFTEXT, ssFFLAGS)
If Len(sSelectedPath)=0 Then
    Wscript.quit
Else
    set fso=createobject("scripting.filesystemobject")
    thisfolder=sSelectedPath

        for each f in fso.getfolder(thisfolder).files
            i = i + 1
            f.name = i & ".htm"

        next

end if

Function SelectFolder(ssFROOT, ssFASK, ssFFLAGS)
  Set oSHA = CreateObject("Shell.Application")
  Set oSF = oSHA.BrowseForFolder(0,ssFASK,ssFFLAGS,ssFROOT)
  If Instr(TypeName(oSF),"Folder")<> 1 Then Exit Function
  For Each oItem in oSF.ParentFolder.Items
    If oItem.Name = oSF.title Then
      SelectFolder = oItem.path
      Exit Function
    End If
Next
SelectFolder = oSF.title
End Function


//akj

Denne her giver dig mulighed for at vælge hvad første filnavn skal være.

http://www.eybye-kjaer.dk/uploads/files/rename_med_starttal.vbs

//akj

Jeg har faktisk et komplet VB-program (hjemmelavet self. ;)) som gør præcis hvad du efterspørger... Dog har jeg ikke tid til at sende dig det før mandag (er igang med eksamensprojekt på HTX), så skrive lige hvis du er interesseret.
-Sion

Jeg har faktisk OGSÅ et komplet VB-program (hjemmelavet self. ;)) som gør præcis hvad du efterspørger... Jeg kan sende det allerede NU, så skrive lige hvis du er interesseret.
-Martin

PS: Det er ret lækkert, synes jeg, med preview på billedfiler osv. :-D

Ved du hvad - snup du det bare på

www.kalundborgdyreklinik.dk/martinmoth/rename.zip

/MartinMoth

Jaja, martin_moth, det er jo altsammen meget godt, men der er jo ingen source med... Jeg fandt faktisk ud af at jeg også havde filerne på min bærbare (som jeg sidder ved), så der er jo ikke noget i vejen for at du lige kan kaste et blik på programmet (med kildekode self. ;)). Filen ligger på http://www.gn.dyndns.dk/03/masseomdoeb.zip
-Sion
ps. no disrespect martin moth :)

He he, går nok.
Regnede med, at han blot havde behov for et program, ikke nødvendigvis at han selv ville (om)skrive det, og derfor ikke behøver kildekoden :o)

Takker for hjælpen.

martin moth> super funky program du har der. Respekt.

Takker ;o)

Hvis du sælger det videre, vil jeg gerne have 50% af din fortjeneste ;o)

...det skal jeg nok, skriv dit Visa-nummer her så overfører jeg pengene til dig :-)

(en ide til en forbering kunne være at man kunne omdøbe filerne til nonsens-navne, så de i stedet for 001, 002, 003... kunne blive til sddkdiss, dkskisia, odkkdiei...)