WILD CARD IN FILECOPY 1

[vbesoft]

I am new to Visual Basic and it seams what should be simple eludes me! So please bear with me.

What I tried to accomplish is

Private Sub PlotVersaCad_Click()
FileCopy "e:\spool\es.spl", "\\f\fhp\es.SPL"
End Sub

but instead of copying one file i.e. es.spl I need to say *.spl and FileCopy will not let you do this. How do you work around this in Visual Basic

 

[JustinEzequiel]

you could try the FileSystemObject

Dim oFSO As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "C:\*.txt", "I:\", True
Set oFSO = Nothing

 

[vbesoft]

I gave oFSO.CopyFile a try and got the error code
Path not found
this is how it is written

Private Sub PlotVersaCad_Click()
Dim oFSO As Object

Set oFSO = CreateObject("Scripting.FileSystemObject&quot
oFSO.CopyFile "e:\spool\*.spl", "\\f\fhp\", True
Set oFSO = Nothing
End Sub

\\f\fhp is a printer on the network.

 

[JustinEzequiel]

you did not say you were copying it to a printer

try

Dim sFile As String
Dim sFolder As String

sFolder = "e:\spool\"
sFile = Dir(sFolder & "*.spl")

Do While sFile <> &quot;&quot;
  FileCopy sFolder & sFile, &quot;\\f\fhp&quot;
  sFile = Dir
Loop

 

[vbesoft]

when I FileCopy sFolder & sFile, "\\f\fhp" I get the error Ivalid Procedure call or Argument on the "\\f\fhp" any Idea how to resolve.

 

[JustinEzequiel]

I tested the code here using "\\Pc4467\hp" where "Pc4467" is a PC on our network.
is "\\f\fhp" a valid network share?

 

[vbesoft]

I double checked that it is shown on the network and that share is checked. it is also mapped to lpt3 on the other computers so that dos can also access it.

 

[vbesoft]

I figured out the problem today. the problem is that you cannot capture the printer to a port for dos for some reason when you do you get the error I encountered. when you uncapture the port the problem goes away.