🚀 go-pugleaf

Hallo

Hieronder staat VB-code die zou moeten bestanden copi�ren van de ene map
naar de andere, maar ik krijg steeds de melding 'Copi�ren van bestanden
mislukt!!!'

Waar zit mijn fout?

MVG


Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long

Private Declare Function copyfile Lib "kernel32" Alias _
"CopyFileA" (ByVal lpszexistingfile As String, _
ByVal lpsznewfile As String, ByVal fFailifexists As Long) As Long


Private Sub Form_Load()
    Dim s As String
    Dim cnt As Long
    Dim dl As Long
    Dim CurUser As String
    Dim ctl As Long
    Dim sourcepath As String
    Dim destpath As String

    cnt = 199
    s = String$(200, 0)
    dl = GetUserName(s, cnt)
    If dl <> 0 Then CurUser = Left$(s, cnt) Else CurUser = ""
    txtname.Text = CurUser

    sourcepath = "c:\" & txtname.Text & "\*.*"
    destpath = "g:\" & txtname.Text & "\*.*"

    ctl = w95filecopyex(sourcepath, destpath, True)
    If ctl = 0 Then MsgBox "Kopi�ren van bestanden mislukt!!!"


End Sub

Public Function w95filecopyex(sourcefile$, destfile$, NoOverwrite As
Boolean) As Long
    w95filecopyex = copyfile(sourcepath, destpath, NoOverwrite)
End Function