VBA using session.MoveFile :: Support Forum

egray
Joined:: 2014-01-30
Posts:: 1
Location:: California

VBA using session.MoveFile

2014-01-30 01:05

I am using VBA within Access to upload a file to SFTP which works fine.

I need to rename the file on the SFtp site is that possible using the VBA methods?

I keep getting "Object required" below is the code:

Private Sub Upload(ByRef mySession As Session)
 
    ' Setup session options
    Dim mySessionOptions As New SessionOptions
    With mySessionOptions
        .Protocol = Protocol_Sftp
        .HostName = "ftp.xxxxxxxxxxxxxx.net"
        .UserName = "xxxxxxx"
        .Password = "xxxxxxxx"
        .SshHostKey = "ssh-dss 1024 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
    End With
    ' Get file name
    Dim strFile As String
    strFile = Dir("\\xxx.xxx.1.3\Corp\IT\scripts\Credit\SendTest\*.u01")
    
    ' Connect
    mySession.DisableVersioncheck = True
    mySession.Open mySessionOptions
    
    ' Upload files
    Dim myTransferOptions As New TransferOptions
    myTransferOptions.TransferMode = TransferMode_Binary
     
    Dim transferResult As TransferOperationResult
    Dim myMoveResult As SessionRemoteException
    Set transferResult = mySession.PutFiles("\\xxx.xxx.1.3\Corp\IT\scripts\Credit\SendTest\" & strFile & "", strFile, False, myTransferOptions)
 
    'GET ERROR HERE***********************************************************
    Set myMoveResult = mySession.MoveFile(strFile, "cz311660.r01")
  
    ' Throw on any error
    transferResult.Check
     
    ' Display results
    Dim intSuccess As Integer
    Dim transfer As TransferEventArgs
 
        For Each transfer In transferResult.Transfers
            MsgBox "Upload of " & transfer.FileName & " succeeded!"
            intSuccess = 1
        Next
              
        If intSuccess <> 1 Then
            Err.Raise 999, , "Failed to upload file!"
            'MsgBox "File did not send properly."
        End If
 
End Sub

Reply with quote

martin◆ Site Admin
Joined:: 2002-12-10
Posts:: 42,205
Location:: Prague, Czechia

Re: VBA using session.MoveFile

2014-02-03

On what line do you get the "Object required"?

Reply with quote

Davis Guest

Re: VBA using session.MoveFile

2014-12-01 07:58

I encountered the same Error:

Object required : 'MoveFile(...'

Using WinSCP 5.5.6, VBScripts "MovefileError.vbs". The scripts as below.
The Error occurred at 'Line: 20'. The file was renamed from examplefile.txt to newexamplefile.txt successfully.

' Setup session options
Dim sessionOptions
Set sessionOptions = WScript.CreateObject("WinSCP.SessionOptions")
With sessionOptions
  .Protocol = Protocol_Sftp
  .HostName = "xxx.xxx.com"
  .UserName = "xxx"
  .Password = "xxx"
  .SshHostKeyFingerprint = "xxx"
End With
Dim session
Set session = WScript.CreateObject("WinSCP.Session")
' Connect
session.Open sessionOptions
Dim remotePath
remotePath = "/Usr/ftp4datalink/davis/examplefile.txt"
Dim newRemotePath
newRemotePath = "/Usr/ftp4datalink/davis/newexamplefile.txt"
 
session.MoveFile(remotePath,newRemotePath).Check()
 
' Disconnect, clean up
session.Dispose