Moving multiple files from one folder to another

teneesh

Hi,

I am using Access to pull in some excel spreadsheets and create tables from them. They appear in one particular subdirectory. However after these spreadsheets are in Access, I'd like to move them all to a new folder. I have been able to code the program to move one - but I need them all to be moved over. Here's what I did:

Expand|Select|Wrap|Line Numbers

  
Private Sub Command59_Click()

Dim fso, f2
 
Set fso = CreateObject("Scripting.FileSystemObject")

Set f2 = fso.GetFile("R:\Projects\ExcelVersion\0012BASE.xls")

f2.Move ("R:\Projects\ProcessedData\")
 
End Sub

What do I need to do to move all the documents in the folder:
R:\Projects\ExcelVersion\ to folder:
R:\Projects\ProcessedData\

ChipR

You could try out the Application.FileSearch and its .FoundFiles property. I haven't used it myself but it goes something like this:

Expand|Select|Wrap|Line Numbers

 Dim strFileName as String

With Application.FileSearch

    .LookIn = "C:\My Documents" 'your directory here

    For i = 1 To .FoundFiles.Count

       strFileName = FoundFiles(i)

       'Do Stuff

    Next i

End With

NeoPa

You could use :

Expand|Select|Wrap|Line Numbers

 Call Shell("CMD /C MOVE R:\Projects\ExcelVersion\*.* R:\Projects\ProcessedData\")
 

This will run asynchronously though (Your code will continue running after the command has been started, and will not wait until it has finished). For a synchronous version see ShellWait() Function.

Moving multiple files from one folder to another

re: Moving multiple files from one folder to another

re: Moving multiple files from one folder to another

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about