Forum » .NET assembly / COM library »

Post a reply

Options
Add an Attachment

If you do not want to add an Attachment to your Post, please leave the Fields blank.

(maximum 10 MB; please compress large files; only common media, archive, text and programming file formats are allowed)

Options

Topic review

ScruffR

Re: Can I use Session.EnumerateRemoteFiles() in VBA?

I found a "workaround" that perfectly fits my needs and may also help others in a similar situation.
Since I need to archive the respective file(s) I'm looking for anyway I now do this 
  Dim result As WinSCPnet.TransferOperationResult
  Set result = activeSession.GetFilesToDirectory(sftpPath, archivePath, fileNameWithWildcards)  
  ' or when you want to remove the source file after archiving
  'Set result = activeSession.GetFilesToDirectory(sftpPath, archivePath, fileNameWithWildcards, True)  
  ' ... error checks here
  If (result.IsSuccess()) Then
    Dim tea As WinSCPnet.TransferEventArgs
    For Each tea in resultTransfers
      Debug.Print tea.FileName
    Next tea
  End If


(BTW, I'm more a C++/C# guy anyway, but sometimes you need to please "customers" that insist in using VBA 😁)
martin

Re: Can I use Session.EnumerateRemoteFiles() in VBA?

ScruffR wrote:

Thanks for the clarification, but how would one then go about checking for a specific but not fully qualified file without having to always needing to read the entire list of files stored in the directory?

There's no other way anyway. EnumerateRemoteFiles internally calls ListDirectory.
With most servers you need to retrieve full listing in any case (even if you use any other library).
ScruffR

Re: Can I use Session.EnumerateRemoteFiles() in VBA?

Thanks for the clarification, but how would one then go about checking for a specific but not fully qualified file without having to always needing to read the entire list of files stored in the directory?

And, is there any chance to get EnumerateRemoteFiles() working in VBA and/or FileExists() support wildcards ever?
martin

Re: Can I use Session.EnumerateRemoteFiles() in VBA?

No you cannot. That other thread is probably some mistake. I'll edit it accordingly.
ScruffR

Can I use Session.EnumerateRemoteFiles() in VBA?

I have browsed the forum and found some posts that stated it should be possible
(as in the final post in this thread https://winscp.net/forum/viewtopic.php?t=23824)
but in the docs I read

https://winscp.net/eng/docs/library_session_enumerateremotefiles
The method cannot be used via COM interface (i.e. from VBScript, JScript or VBA).


However, the outcome:
How would I check for the existence of a remote file of which I only know part of the name (e.g. 
SomeFile_<YYYYMMDD_hhmmss>.CSV
where the timestamp cannot be predetermined).

I found that 
FileExists()
cannot be used with wildcards and the common answer is to use 
EnumerateRemoteFiles()
instead, but I'm always getting an Automation Error (-2146233079)

e.g. 
' passing in "SomeFile_*.CSV" for fileName and a working session 
Private Function resultExists(fileName As String, ByRef activeSession As Session) As Boolean
  Dim files As New RemoteFileInfoCollection
  Dim f As RemoteFileInfo
 
  ' error occures when the following statement is executed  
  Set files = activeSession.EnumerateRemoteFiles("/somePath/", fileName, EnumerationOptions_None)
  
  resultExists = (files.count > 0)
 
  For Each f In files
    Debug.Print f.Name
  Next f
End Function


The problem doesn't seem to be the call itself but the assignment.
When I merely do 
 call activeSession.EnumerateRemoteFiles("/somePath/", fileName, EnumerationOptions_None)

the call works, but I'm unable to "catch" the enumerator the call is supposed to return.

I'm on Win10 64bit Enterprise, MS Office 2016 64bit, WinSCPnet.dll (FileVersion 1.7.2.10240, ProductVersion 5.17.1.0)

Documentation

Support

Associations

Follow Us