[vb6] File Copy error

[akire1212]

Hello..
I'm kinda new here..

i'm having a problem with file copy and limits of incorrect pw.
here is my code..
the backup button:

Private Sub cmdBackup_Click()
    SourceFile = App.Path & Text1
    DestinationFile = App.Path & Text2
    fs.CopyFolder SourceFile, DestinationFile
    Set fs = Nothing
    Timer1.Enabled = True
End Sub

and the browsing part is this:

Private Sub cmdBrowse1_Click()
With cd
        .CancelError = False
        .Filter = "All Files (*.mdb)|*.mdb"
        .ShowOpen
        Text1 = .FileName
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
End With
end sub

i'm having an error msg "Bad file name or number"
i set my reference to microsoft scripting runtime
can you help me??

and also..
can you teach me how to limit the incorrect password of users??

please please help me..
badly needed for thesis..
tnx tnx..