rename fil og progressbar

Til rename af filer kan du tilrette dette .vbs script.

www.swk-surf.dk/akj/rename.vbs

//akj

Den kan jeg desværre ikke bruge :O/ Så skal jeg lave hele min kode om.....
Jeg har rutinen der køre filerne igennem.......

Men jeg skal have dem renamet også.......så jeg skal bruge 1 linie der renamer en fil......gerne FSO da jeg har dimmet et fso som den arbejder med i den rutine.....

/Tubber

Hvis du fso så kan du gøre sådan:

ProgressBar1.min = 0
progressBar1.max = AntalFiler

For Each f In fso.getfolder( -- Folder --).Files
        f.Name = NytFilnavn
        ProgressBar1.Value = ProgressBar1.Value + 1
Next

progressbar kontrollen finder du under project - components - microsoft common controls 6.0.

//akj

Tester lige den der rename

jeg tror ikke progressbaren virker for den er vel kun på min FSO, jeg skal ha det på hele min rutine....

/Tubber

Hvis du har mere end rename i din rutine vil den ikke vise korrekt, den vil kun "progresse" for omdøbning af filer.

Alternativt kan du lave 2 progresbars
' progress 1 viser samlet status
' progress 2 viser status for rename

progress1.min = 0
progress2.min = 0
progress1.max = 100
progress2.max = 100

for i = 1 to 100
  progress2.value = 0

  progress1.value = progress1.value + 1
  for k = 1 to 100
    progress2.value = progress2.value + 1
  next
next

Det jeg sidder og roder med er et program der kan identificere oprindelige filnavne....

F.eks. hvis ens puter har crashed og alle filer på et drev er væk, og scandisk eksempelvis finder 5000 chk filer.....

Så skal det kunne kører dem igennem og rename og flytte dem rundt til forskellige bibloteker....

/Tubber

Ahh, okay, god idé :o)

Hvis jeg vil beholde mit filnavn, men kun vil ha ny ext... så er det :

myFile.Name = *.ext ?

Ikke helt, så skal du lige ud i lidt streng gymnastik.

ret = Left(f.Name, InStr(f.Name, ".") - 1) ' originalt filnavn uden .ext
ret = ret & ".ext" ' sæt ny extension på
f.Name = ret


//akj

kommer lige med et tillæg til spg


Points er dine -  men jeg har en fso hvor den siger myFile er tom, selv om den finder path osv.......

Så blev jeg færdig :O)

Har lige lavet et kewl prog syntes jeg selv....

Det kan genkende filtyper ved at kigge i dem binært....så har man nogle chk filer kan den genkende dem og rename og flytte dem til rette bibloteker....

PT kan den kun lave jpg...skal til at teste filtyper nu :))

/Tubber

Det lyder da som et meget brugbart program :o)

Held og lykke med det.

Takker :O)

Det var nu dovenskaben der overtog hehe har 11k chk filer jeg skal igennem :O)

Nu er det jo en gang sjovere at bruge 10 timer på at lave et program der kan udføre arbejdet for en, end at bruge 5 timer på at gøre det manuelt :o)

5 timer - har været igang, havde kun nået en 1/5 - altså billedefilerne - det er nemlig nemt nok, med acdsee.....

Men som kom resten jo dem skal jeg se om jeg ikke også kan finde frem til :O)