Topic "VBA Error while setting the permissions and/or timestamp"

Author Message
dodonohoe
[View user's profile]

Joined: 2014-05-09
Posts: 1
Hi all,

I am getting the above error despite having selected the "ignore permissions errors on the console". The result is that of the ten folders I am trying to transfer it transfers one and then stops on the first file. I have read of command options using VB (Setting preserve time stamp option to false) and was wondering if there is something I can add to the code below (VBA) to prevent this error and allow my files/folders to be transferred.

Here is the full code I am using

Code:
Option Explicit

 
Sub VariableFTP()
 
    Dim mySession As New Session
   
    ' Enable custom error handling
       
    Upload mySession
   
    ' Query for errors
     
   
    If Err.Number <> 0 Then
        MsgBox "Error: " & Err.Description
 
        ' Clear the error
        Err.Clear
    End If
     
    ' Disconnect, clean up
    mySession.Dispose
     
    ' Restore default error handling
    On Error GoTo 0
   
End Sub
 
Private Sub Upload(ByRef mySession As Session)
 
    ''this is where we create a variable that allows our filepath _
    to change
 
    Dim FilePathx As String
    Dim FilePathY As String
    Dim FilePathz As String
    Dim FundName As String
    Dim Datex As String
   
    Sheets("Paperless Checklist ").Select
   
    FundName = Range("B6")
   
   
   
    Sheets("Variables").Select
   
     Datex = Range("B46")
   
    'FilePathx = Range("B22") & "\*"
    FilePathx = Range("B22") & "\"
    FilePathz = "/Usr/dubtrustee/"
    FilePathY = FilePathz & "/" & FundName & " " & Datex


     
   
   
    'FilePathx = Range("c2") & "\*"
    'FilePathY = Range("c4")
   
    ''check to see if the source filepath (filepathx)exists

    If Len(Dir(FilePathx, vbDirectory)) = 0 Then

    MsgBox "The Source File Path does not exist. Please check this file path.", vbCritical
    Exit Sub
   
    Else
   
    End If


    ''check to see if the source filepath (filepathx) actually contains files
    If Dir(FilePathx & "*.*") = "" Then
        MsgBox "The Source File Path does not contain any files. Please copy your client reports into this file path.", vbCritical
        Exit Sub

    Else
   

   
    Dim mySessionOptions As New SessionOptions
    With mySessionOptions
        .Protocol = Protocol_Sftp
        .HostName = "**********"
        .UserName = "******"
        .Password = "*********"
        .SshHostKeyFingerprint = "*************************************"
    End With

   
    ' Connect
    mySession.Open mySessionOptions
   
   
   
    ' Upload files
    Dim myTransferOptions As New TransferOptions
    myTransferOptions.TransferMode = TransferMode_Binary
     
    Dim transferResult As TransferOperationResult
   
    'we use this line if we want to take just the files not the folder
    'Set transferResult = mySession.PutFiles(FilePathx, "/Usr/sebprime/", False, myTransferOptions)
     Set transferResult = mySession.PutFiles(FilePathx, FilePathY, False, myTransferOptions)

    ' Throw on any error
    transferResult.Check
     
   
    MsgBox "Transfer Successful", vbInformation
   
    End If
   
End Sub



martin
[View user's profile]
Site Admin
Joined: 2002-12-10
Posts: 24552
Location: Prague, Czechia
Please attach a full session log file showing the problem (using the latest version of WinSCP).

To generate log file, set Session.SessionLogPath. Submit the log with your post as an attachment. Note that passwords and passphrases not stored in the log. You may want to remove other data you consider sensitive though, such as host names, IP addresses, account names or file names (unless they are relevant to the problem). If you do not want to post the log publicly, you can mark the attachment as private.
Advertisements

You can post new topics in this forum






Search Site

What is WinSCP?

It is award-winning SFTP client, SCP client, FTPS client and FTP client integrated into one software program for file transfer to FTP server or secure SFTP server. [More]

And it's free!

Donate

About donations

$9   $19   $49   $99

About donations

Recommend

WinSCP Privacy Policy

WinSCP License