FTP-Dateien hochladen Fehler in VB6

Question

Ich entwickle ein Projekt, in dem es erforderlich ist, mit Mitsubishi M70 CNC (ein FTP-Server) über VB6 zu kommunizieren. Obwohl meine erste Kommunikation mit ihm erfolgreich ist, wenn ich versuche, Datei, um es zu laden oder herunterzuladen, folgende Fehler tritt auf:

Error 120003 

200 Type set to I 
200 Port command successful 
500 Cannot Copy file/Directory. Permission Denied. 

Ich bin in der Lage die Dateien manuell in den Ordner kopieren und einfügen. Aber wenn ich versuche, dasselbe durch VB zu machen, zeigt es einen Fehler an.

MY Projekt VB exe ist auf dem gleichen PC installiert wie mein FTP-Server ist.

Mein Code ist wie folgt

Option Explicit 

Private m_GettingDir As Boolean 
Private Sub AddMessage(ByVal msg As String) 
    txtResults.Text = txtResults.Text & vbCrLf & msg 
    txtResults.SelStart = Len(txtResults.Text) 
End Sub 



Private Sub cmdUpload_Click() 
Dim host_name As String 
Dim CMD2 As String 

    Enabled = False 
    MousePointer = vbHourglass 
    txtResults.Text = "Working" 
    txtResults.SelStart = Len(txtResults.Text) 
    DoEvents 

    ' You must set the URL before the user name and 
    ' password. Otherwise the control cannot verify 
    ' the user name and password and you get the error: 
    ' 
    '  Unable to connect to remote host 

    inetFTP.URL = "ftp://Administrator:CNC@NCExplorer:8080/(192,168,1,101)/" 
    inetFTP.UserName = "Administrator" 
    inetFTP.Password = "CNC" 



    ' This is the path where Remote File is to be Copied 


    CMD2 = "ftp://Administrator:CNC@NCExplorer:8080/(192,168,1,101)/CNC%20MEMORY/PRG/USER/NEW_test.txt" 

    'Is the syntax of Remote file path Correct? I dont want to copy the file in Home directory 

    ' Execution 

    inetFTP.Execute , "PUT C:\TEST.TXT CMD2" 



    ' m_GettingDir = True 
    ' inetFTP.Execute , "Dir" 
    End Sub 
Private Sub inetFTP_StateChanged(ByVal State As Integer) 
    Select Case State 
     Case icError 
      AddMessage "Error: " & _ 
       " " & inetFTP.ResponseCode & vbCrLf & _ 
       " " & inetFTP.ResponseInfo 
     Case icNone 
      AddMessage "None" 
     Case icConnecting 
      AddMessage "Connecting" 
     Case icConnected 
      AddMessage "Connected" 
     Case icDisconnecting 
      AddMessage "Disconnecting" 
     Case icDisconnected 
      AddMessage "Disconnected" 
     Case icRequestSent 
      AddMessage "Request Sent" 
     Case icRequesting 
      AddMessage "Requesting" 
     Case icReceivingResponse 
      AddMessage "Receiving Response" 
     Case icRequestSent 
      AddMessage "Request Sent" 
     Case icResponseReceived 
      AddMessage "Response Received" 
     Case icResolvingHost 
      AddMessage "Resolving Host" 
     Case icHostResolved 
      AddMessage "Host Resolved" 

     Case icResponseCompleted 
      AddMessage inetFTP.ResponseInfo 

     If m_GettingDir Then 
      Dim txt As String 
      Dim chunk As Variant 
      m_GettingDir = False 

      'Get the first chunk. 
      chunk = inetFTP.GetChunk(1024, icString) 
      DoEvents 
      Do While Len(chunk) < 0 
       txt = txt & chunk 
       chunk = inetFTP.GetChunk(1024, icString) 
       DoEvents 
      Loop 

     ' AddMessage "----------" 
      AddMessage txt 
     End If 

    Case Else 
     AddMessage "State = " & Format$(State) 
End Select 

Enabled = True 
MousePointer = vbDefault 
End Sub 

Answer 1

Sie sind nicht die ftp geben cpommand eine Chance, den endgültigen Standort zu sehen. Es dauert die Lage buchstäblich als CMD2

Versuchen Sie, die Ziel Zeichenfolge an den

Ändern Sie diesen Befehl verketten:

inetFTP.Execute , "PUT C:\TEST.TXT CMD2" 

Zu diesem

inetFTP.Execute , "PUT C:\TEST.TXT " & CMD2