/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Hvordan gør jeg?? (omdøb i rækkefølge)
Fra : Casper


Dato : 29-04-02 09:35


Hej gruppe

Jeg har en lille opgave, som gerne skulle gøre livet lettere for
mig... Jeg har et digitalkamera som jeg bruger flittigt. Når
billederne lægges på min pc, navngiver jeg dem efter motiv...
blomst.jpg osv... men hvis jeg vil overføre billerne tilbage til
kameraet (for at vise billeder frem på TV mv.) så vil kameraet kun
acceptere filnavne som hedder IMG_001.JPG, IMG_002.JPG osv.

Min idé er så at kopiere de billeder jeg vil have med i kameraet, til
en mappe og derefter køre et lille program som omdøber filnavnene til
IMG_001....

Så ideen er på plads, men hvordan gør jeg i praksis?? Jeg har lavet
en lille smule i VB, men kan ikke rigtig overskue dette... kan nogen
give en hjælpende hånd?

På forhånd tak!

Med venlig hilsen

Casper Andrea


 
 
Jan Damkjær Dahl (29-04-2002)
Kommentar
Fra : Jan Damkjær Dahl


Dato : 29-04-02 20:00

Prøv dette

***********
'On Error Resume Next
Dim fso
Dim f, f1, fc, Path, i

Path = "C:\temp\x\"
i = 0

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Path)
Set fc = f.Files

For Each f1 In fc
i = i + 1
i = "00" & i
i = Right(i, 3)
fso.MoveFile Path & f1.Name, Path & "IMG_" & i & ".jpg" '001" &
f1.Name
Next

MsgBox "Filerne er nu blevet omdøbt", vbInformation


***********


"Casper" <caa@XXXindbakke.dk> skrev i en meddelelse
news:pq0qcu4ba8t2c85ockd8d84vsh1urnbjg0@4ax.com...
>
> Hej gruppe
>
> Jeg har en lille opgave, som gerne skulle gøre livet lettere for
> mig... Jeg har et digitalkamera som jeg bruger flittigt. Når
> billederne lægges på min pc, navngiver jeg dem efter motiv...
> blomst.jpg osv... men hvis jeg vil overføre billerne tilbage til
> kameraet (for at vise billeder frem på TV mv.) så vil kameraet kun
> acceptere filnavne som hedder IMG_001.JPG, IMG_002.JPG osv.
>
> Min idé er så at kopiere de billeder jeg vil have med i kameraet, til
> en mappe og derefter køre et lille program som omdøber filnavnene til
> IMG_001....
>
> Så ideen er på plads, men hvordan gør jeg i praksis?? Jeg har lavet
> en lille smule i VB, men kan ikke rigtig overskue dette... kan nogen
> give en hjælpende hånd?
>
> På forhånd tak!
>
> Med venlig hilsen
>
> Casper Andrea
>



Casper (02-05-2002)
Kommentar
Fra : Casper


Dato : 02-05-02 09:22

WOW... mange tak, det virker helt perfekt. Nedenstående er nu lagt ind
i min lille applikation og verden er en lille smule lettere...

Mange tak for hjælpen!

Casper


On Mon, 29 Apr 2002 20:59:55 +0200, "Jan Damkjær Dahl"
<jdd@worldonline.dk> wrote:

>Prøv dette
>
>***********
> 'On Error Resume Next
> Dim fso
> Dim f, f1, fc, Path, i
>
> Path = "C:\temp\x\"
> i = 0
>
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set f = fso.GetFolder(Path)
> Set fc = f.Files
>
> For Each f1 In fc
> i = i + 1
> i = "00" & i
> i = Right(i, 3)
> fso.MoveFile Path & f1.Name, Path & "IMG_" & i & ".jpg" '001" &
>f1.Name
> Next
>
> MsgBox "Filerne er nu blevet omdøbt", vbInformation
>
>
>***********
>
>
>"Casper" <caa@XXXindbakke.dk> skrev i en meddelelse
>news:pq0qcu4ba8t2c85ockd8d84vsh1urnbjg0@4ax.com...
>>
>> Hej gruppe
>>
>> Jeg har en lille opgave, som gerne skulle gøre livet lettere for
>> mig... Jeg har et digitalkamera som jeg bruger flittigt. Når
>> billederne lægges på min pc, navngiver jeg dem efter motiv...
>> blomst.jpg osv... men hvis jeg vil overføre billerne tilbage til
>> kameraet (for at vise billeder frem på TV mv.) så vil kameraet kun
>> acceptere filnavne som hedder IMG_001.JPG, IMG_002.JPG osv.
>>
>> Min idé er så at kopiere de billeder jeg vil have med i kameraet, til
>> en mappe og derefter køre et lille program som omdøber filnavnene til
>> IMG_001....
>>
>> Så ideen er på plads, men hvordan gør jeg i praksis?? Jeg har lavet
>> en lille smule i VB, men kan ikke rigtig overskue dette... kan nogen
>> give en hjælpende hånd?
>>
>> På forhånd tak!
>>
>> Med venlig hilsen
>>
>> Casper Andrea
>>
>


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste