locked
FTP problem in Windows 7 RRS feed

  • Question

  • Hi All,

    I have a problem in FTP.

    Earlier I had Windows XP and Access 2003. I had an internal VBA application in 20003 that would print the ftp commands on a batch file and would run the batch file as a process in shell command.

    Now I have Windows 7 and Access 2010. Now the files wont get ftp to the other server through this Access application. It connects to the ftp site and gives the following command and hangs.

    "150 file status ok, about to open the data connection".

    When I try using the Filezilla app it connects perfectly. Any idea why these files can't get ftp over?

    FYI : There is coding like these in VBA too.

    Private Declare Function CreateProcessA Lib "kernel32" ( _
    
        ByVal lpApplicationName As Long, _
    
        ByVal lpCommandLine As String, _
    
        ByVal lpProcessAttributes As Long, _
    
        ByVal lpThreadAttributes As Long, _
    
        ByVal bInheritHandles As Long, _
    
        ByVal dwCreationFlags As Long, _
    
        ByVal lpEnvironment As Long, _
    
        ByVal lpCurrentDirectory As Long, _
    
        lpStartupInfo As typStartupInfo, _
    
        lpProcessInformation As typProcInfo) As Long
    
    
    
    Private Declare Function WaitForSingleObject Lib "kernel32" ( _
    
        ByVal hHandle As Long, _
    
        ByVal dwMilliseconds As Long) As Long
    
    Private Declare Function CloseHandle Lib "kernel32" ( _
    
        ByVal hObject As Long) As Long
    
    
    
        Call CreateProcessA(lpApplicationName:=0&, lpCommandLine:=strCommand, lpProcessAttributes:=0&, lpThreadAttributes:=0&, _
    
                            bInheritHandles:=1&, dwCreationFlags:=conNormalPriority, lpEnvironment:=0&, lpCurrentDirectory:=0&, _
    
                            lpStartupInfo:=objStart, lpProcessInformation:=objProcInfo)
    
      
        'Wait for the shelled application to finish
    
        Call WaitForSingleObject(hHandle:=objProcInfo.hProc, dwMilliseconds:=conInfinite)
    
        Call CloseHandle(hObject:=objProcInfo.hProc)
    

    Do i need to convert the code to 64 bit relevant?

    Your help is much appreciated.

    Thanks

    Lucki

    Tuesday, August 13, 2013 7:58 AM