Filkopieringsprogram (newb)

Jeg kan ikke give dig den færdige løsning (på stående fod), men jeg kan give dig den vigtigste kodestump: nemlig den funktion, som kopiere alle data fra én mappe til en anden.

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


Derudover er det er spørgsmål om, at oprette en form med en timer på (sat til 60.000 millisekunder) som kalder ovenstående funktion.

En start/stop-knap skal bare skifte egneksberne på timeren og samtidig skifte farve (eller lign) på en tekstboks, så man kan se om den er aktiv eller ej.

Jeg håber, at det kan bringe dig videre?

/Thomas

Ups jeg mente flytte og ikke kopiere...

thomasjepsen -> http://www.eksperten.dk/spm/573449 ;) Du er jo god til VB, videre der og hjælp mig.

hov, hov ikke stjæle :)

Hvis du vil flytte i stedet for at kopiere, skal du i princippet bare slette filen efter kopieringen:

Public Function MoveFiles(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)
                err.clear
                FileCopy SourceDir & "\" & stName, DestinationDir & "\" & stName
                'if no error, delete source
                if err = 0 then
                    kill SourceDir & "\" & stName
                endif
            End If
        End If
        'Get Next entry
        stName = Dir
    Loop
    MoveFiles = 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


Det skal dog nok lige testes...

Jeg får en "Statement is not valid in a namespace"

Public Function MoveFiles(ByVal SourceDir As String, ByVal DestinationDir As String) As Boolean

hmmm, måske er movefiles et reserveret ord. Prøv at kald det noget andet. Husk så også at ændre det i linine forneden: MoveFiles = True

Glem fejlmed. :|

Jeg kunne stadig godt bruge lidt hjælp til den øvrige funktionalitet :O)

Se min kommentar til http://www.eksperten.dk/spm/573806

Martin Moth har ret igen... :o) Jeg genopretter i relevant kategori...

Jeg er i øvrigt taknemmelig for hjælpen og ked af ulejligheden...

Det er helt i orden - det kan ske for enhver :o)
En anden gang, så skaber det sympati og respekt, hvis man lige giver lidt point for indsatsen, når andre nu har brugt tid på...ingenting.

God jul til Jer alle 3...

thomas -> Du er velkommen til at deltage i besvarelsen under .net og du vil få særbehandling! ;o)

og i lige måde!

tak, men jeg ved intet om .net, så det vil du nok ikke ønske :o(