Copy all files in folder using VBA (Word 2002)

Topic

New Reply

I’m having difficulty putting together VB code that will copy all files from a given folder to another folder.

Any help will be appreciated.

Reply | Quote

Replies

Take a look at this thread in Access. The same approach can be made to work in Word.

Reply | Quote

I only have one thing to say…

Obi-Wan FSO said…
“use the FileSystemObject, Luke”

Reply | Quote

The only thing to keep in mind about the FSO is that it’s not unheard of for IT to turn off scripting, which leaves you SOL.

Reply | Quote

Charlotte,

Am open to correction but I think switching off scripting impacts on WScript and CScript (the WSH) and the .vbs (et al) files that run the scripts. The scripting runtime is more like the VB or Access runtime files.

Andrew

Reply | Quote

I don’t have first hand knowledge, only what I’ve seen posted in that regard. Apparently some IT departments go overboard.

Reply | Quote

As anything that can be done with the FSO can be done via VB/VBA with some API calls, there seems little point in disabling it. Some IT departments do indeed go overboard as result of ignorance and insecurity.

Andrew

Reply | Quote

During the early days of rampant .VBS deliveries in the daily e-mails, it might have made sense to take “dangerous” COM objects like the scripting runtime and Windows Script Host (WSH) out of commission for a while. Now that MS has patched many of its products, and companies have deployed additional layers of protection (from attachment blocking, to virus detection, to heuristic scanning), and desktops have been reconfigured to minimize the risk of “accidentally” executing a script (see Post #121209) it’s probably safe enough to restore those tools. But some degree of caution is appropriate; productivity cannot always win out over paranoia. Not when you’re running the world’s “most targeted” operating system.

Reply | Quote

As VBnerd says, use the FSO, try the following, where pathA and pathB are the source and destination folders.

Sub fsoCopyFiles()
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
fso.CopyFile “pathA*.*”, “pathB”
Set fso = Nothing
End Sub

Andrew C

Reply | Quote

Thanks for your help with this. The code you suggested is exactly what I was looking for.

Reply | Quote

Here’s an example using both CopyFile and CopyFolder

Sub CopyWrapper()
    Dim s As String
    Dim d As String
    
    s = "C:My DocumentsFooBar"
    'And assume s has one subfolder named Foobar2
    d = "A:Test"
    '*******
    'To Copy Files ONLY
    s = s & Application.PathSeparator & "*.doc"
    'Call DoCopyFilesIn(s, d, true)
    'copies files in d into s, no subfolders copied.
    'Test now contains all the files of FooBar
    
    '*******
    'To copy a folder structure
    's = "C:My DocumentsFooBar"
    'copies last folder in s *under* d
    'A:Test now has
    'A:TestFooBar
    'A:TestFooBarFooBar2
    'Call DoCopyFolder(s, d, True)
    
    '*******
    'To copy subfolders only
    s = "C:My DocumentsFooBar*.*"
    s = "C:My DocumentsFooBar*"
    'do the same thing.
    'copies subfolders of s into d
    'A:TestFooBar2
    'Call DoCopyFolder(s, d, True)
End Sub

Sub DoCopyFilesIn(fldr As String, dest As String, over As Boolean)
Dim fs As Object
Dim worked As Boolean
    Set fs = CreateObject("Scripting.FileSystemObject")
    worked = fs.CopyFile(fldr, dest, over)
End Sub

Sub DoCopyFolder(fldr As String, dest As String, over As Boolean)
Dim fs As Object
Dim worked As Boolean
    Set fs = CreateObject("Scripting.FileSystemObject")
    worked = fs.CopyFolder(fldr, dest, over)
End Sub

Reply | Quote