move all files in a directory into another
 

Friends,

I am having some trouble getting a function to move all files in one
directory to another and keep getting the "Path not found" error. Both
directories are there though and there are files in the source
directory. Here is the code:

Dim Line As String
Dim Office As String 'future use
Dim Cust As String
Dim Contact As String
Dim QuoteNum As String
Dim JobName As String
Dim PONum As String

Dim CurrDir As String


Line = ActiveCell.Offset(0, -4).Value
Office = ActiveCell.Offset(0, -3).Value
Cust = ActiveCell.Offset(0, -2).Value
Contact = ActiveCell.Offset(0, -1).Value
QuoteNum = ActiveCell.Value
JobName = ActiveCell.Offset(0, 1).Value
PONum = ActiveCell.Offset(0, 2).Value

QuoteDir = QuoteNum & " - " & Cust & " - " & Contact & " - " &
JobName
OrderDir = PONum & " - " & Cust & " - " & Contact & " - " & JobName

If PONum = "" Then
MsgBox ("Please Enter Purchase Order Number.")
Else

MkDir "X:\Orders 2004\" & Cust & "\" & OrderDir

'Move files into directory
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

fs.MoveFile "X:\Quotes 2004\" & Cust & " \ " & QuoteDir & "\" &
"*.*", "X:\Orders 2004\" & Cust & " \ " & OrderDir & "\"

move all files in a directory into another
 

modify to suit

Sub movefile()
OldName = "C:\sourcefolder\yourfilename.xls"
NewName = "C:\destinationfolder\yourfilename.xls"
Name OldName As NewName
End Sub

--
Don Guillett
SalesAid Software

wrote in message
oups.com...
Friends,

I am having some trouble getting a function to move all files in one
directory to another and keep getting the "Path not found" error. Both
directories are there though and there are files in the source
directory. Here is the code:

Dim Line As String
Dim Office As String 'future use
Dim Cust As String
Dim Contact As String
Dim QuoteNum As String
Dim JobName As String
Dim PONum As String

Dim CurrDir As String


Line = ActiveCell.Offset(0, -4).Value
Office = ActiveCell.Offset(0, -3).Value
Cust = ActiveCell.Offset(0, -2).Value
Contact = ActiveCell.Offset(0, -1).Value
QuoteNum = ActiveCell.Value
JobName = ActiveCell.Offset(0, 1).Value
PONum = ActiveCell.Offset(0, 2).Value

QuoteDir = QuoteNum & " - " & Cust & " - " & Contact & " - " &
JobName
OrderDir = PONum & " - " & Cust & " - " & Contact & " - " & JobName

If PONum = "" Then
MsgBox ("Please Enter Purchase Order Number.")
Else

MkDir "X:\Orders 2004\" & Cust & "\" & OrderDir

'Move files into directory
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

fs.MoveFile "X:\Quotes 2004\" & Cust & " \ " & QuoteDir & "\" &
"*.*", "X:\Orders 2004\" & Cust & " \ " & OrderDir & "\"