Avatar billede hp-power Nybegynder
10. juli 2004 - 16:20 Der er 10 kommentarer og
1 løsning

fil kopiering

Lad os siger jeg har en masse jpg fil i mappen
D:\billeder\jpg\ (her ligger aller filerne med *.jpg)

jeg har prøvet uden held at finde koden til at flytte(move) alle filerne til fx.

c:\billeder\nye\jpg\ (her skal de ligge)

problemer er jeg ved ikke hvad billederne hedder og hvormange der er det kan nemlig variere.
er der nogle der kan hjælpe mig
Avatar billede varmeskud Praktikant
10. juli 2004 - 16:36 #1
kan du ikke marker alle billederne og så kopir/paste dem over i den nye mappe hvor de skal ligge?

forstår nemlig ellers ikke helt hvad du skriver
Avatar billede bernie Nybegynder
10. juli 2004 - 16:42 #2
varmeskud> han vil lave det fra et program han skriver i VB
Avatar billede varmeskud Praktikant
10. juli 2004 - 16:45 #3
ups sorry havde glemt at kigge hvor han skrev under :-o sorry
10. juli 2004 - 16:52 #4
Prøv med denne funktion:

Public Function CopyFiles(SourceDir As String, DestinationDir As String) As Boolean
    Dim stName As String

    On Error GoTo err_FillFiles
   
    stName = Dir(SourceDir & "\*.*")
    Do While stName <> ""
        On Error Resume Next
        If (GetAttr(SourceDir & stName) And vbDirectory) <> vbDirectory Then
            'File Already open?
            If Err.Number = 5 Then Err.Clear
           
            If stName <> "." Or stName <> ".." Then
                'FileList.Add Item:=(stName)
                FileCopy SourceDir & "\" & stName, DestinationDir & "\" & stName
            End If
        End If
        'Get Next entry
        stName = Dir
    Loop
    CopyFiles = True
exit_FillFiles:
    Exit Function
err_FillFiles:
    If Err.Number = 71 Then
        MsgBox AccessError(Err.Number) _
                    & "  Prøv venligst igen.  ", vbCritical + vbOKOnly, _
                    "Fejl ved læsning af drev " & SourceDir
    Else
        MsgBox Err & vbNewLine & vbNewLine & Err.Description, vbExclamation
    End If
    Resume exit_FillFiles
End Function
Avatar billede terry Ekspert
10. juli 2004 - 16:55 #5
cant you use shell("Move c:\billeder\nye\jpg\*.jpg c:\billeder\nye\jpg")
Avatar billede terry Ekspert
10. juli 2004 - 17:15 #6
and that SHOULD have been

Dim ret as variant
ret = shell("MOVE D:\billeder\jpg\*.jpg  c:\billeder\nye\jpg")
Avatar billede martin_moth Mester
10. juli 2004 - 22:53 #7
200 points...?
Avatar billede hp-power Nybegynder
11. juli 2004 - 02:20 #8
200 points giver måske hurtiger og mere villig svar..
Avatar billede martin_moth Mester
11. juli 2004 - 09:36 #9
Alle er jo interesserede i hurtige svar - så skulle alle uddele 200 p for alle spørgsmål?

Nå - spørgsmålet er jo løst nu...
Avatar billede terry Ekspert
11. juli 2004 - 11:01 #10
martin_moth>
I dont decide how many points are given for a question. In this case one could say that 200 is ample. And in other cases I have worked literally hours for only 30 points.
But in the end it is the person placing the question who decided, NOT ME!
Avatar billede martin_moth Mester
12. juli 2004 - 23:16 #11
Jeg har da aldrig omtalt dig, terry...?
Du har da intet med antal afsatte points at gøre
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester