Having read through the messages on the NG, I thought that the sub
below did something very similar to what i needed, and so added it to
my procedure.

What I have is a proc that imports all the xls files in a specified
folder before renaming the file as a CSV file in preparation for
import to a DOS database. Everything works great on it, so I thought I
would get the proc to move the files from the holding folder to the
imported folder.

As the import procedure loops through each of the XLS files in the
folder, I wanted to call the demo proc, and move the files as it goes.

I ran it and had a look at the k:\bgas folder - nothing in there so it
must have worked. Except it hasn't. The files haven't appeared in the
ToFolder.

I put a MsgBox in the proc to see what it was passing and it all looks
ok to me, as the correct file name is passed each time, but obviously
I have done something wrong. Any suggestions welcome.

regards

Andrew H


Sub Demo(FNames)
Dim FromFolder As String
Dim ToFolder As String

FromFolder = "K:\BGAS\" & FNames
ToFolder = "K:\BGAS\IMPORTED"

On Error Resume Next
With CreateObject("Scripting.FileSystemObject")
.CopyFile FromFolder, ToFolder, True
.DeleteFile FromFolder, True
End With
End Sub

Add a backslash after "IMPORTED" and see how that works.
Jim
-----Original Message-----
Having read through the messages on the NG, I thought
that the sub
below did something very similar to what i needed, and so
added it to
my procedure.

What I have is a proc that imports all the xls files in a
specified
folder before renaming the file as a CSV file in
preparation for
import to a DOS database. Everything works great on it,
so I thought I
would get the proc to move the files from the holding
folder to the
imported folder.

As the import procedure loops through each of the XLS
files in the
folder, I wanted to call the demo proc, and move the
files as it goes.

I ran it and had a look at the k:\bgas folder - nothing
in there so it
must have worked. Except it hasn't. The files haven't
appeared in the
ToFolder.

I put a MsgBox in the proc to see what it was passing and
it all looks
ok to me, as the correct file name is passed each time,
but obviously
I have done something wrong. Any suggestions welcome.

regards

Andrew H


Sub Demo(FNames)
Dim FromFolder As String
Dim ToFolder As String

FromFolder = "K:\BGAS\" & FNames
ToFolder = "K:\BGAS\IMPORTED"

On Error Resume Next
With CreateObject("Scripting.FileSystemObject")
.CopyFile FromFolder, ToFolder, True
.DeleteFile FromFolder, True
End With
End Sub
.