Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 & "\" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
open all files in directory | Excel Discussion (Misc queries) | |||
Files in a directory? | Excel Discussion (Misc queries) | |||
Move files from one directory to another: if they are there | Excel Programming | |||
macro to move contents of directory | Excel Programming | |||
Check if directory empty OR no of files in directory. | Excel Programming |