Ftp functie vba

strLocalFile = "C:\Temp\temp.txt"
        strServer = "/temp/temp.txt"
        If FtpPutFileA(hConn, strLocalFile, strServer, ASCII_TRANSFER, 0) Then ftpSTATUS = True

    NieuwPad =  & "E:\Test\Voorbeelden\"
    If PadBestaat(NieuwPad) = False Then MkDir NieuwPad

Function PadBestaat(PathName As String) As Boolean
'Versie laatst bijgewerkt: 2-4-2008
'Function returns TRUE if the specified file or folder exists, false if not.
'File usage   : Provide full file path and extension
'Folder usage : Provide full folder path; Accepts with/without trailing "\" (Windows)
Dim iTemp As Integer
     
    On Error Resume Next
    iTemp = GetAttr(PathName)
     
    Select Case Err.Number
    Case Is = 0
        PadBestaat = True
    Case Else
        PadBestaat = False
    End Select
     
    On Error GoTo 0

End Function