Copy Folder Contents help!!

[mrclasik]

Hi there, I am trying to copy the contents of a folder when the name isn't allways known. I need to get the name of the folder and then use that name to copy the folder contents. The path is like so.. appdata/mozilla/profiles/ the folder name could be anything such as 42ndz6y7.default. Is this possible. I am new to VBS and would really appreciate some help on this.


Thanks for any help..

 

[PHV]

A starting point:
Function PickFolder(strStartDir)
Dim SA, f
Set SA = CreateObject("Shell.Application")
Set f = SA.BrowseForFolder(0, "Choose a folder", 0, strStartDir)
If (Not f Is Nothing) Then
PickFolder = f.Items.Item.path
End If
Set f = Nothing
Set SA = Nothing
End Function
MsgBox PickFolder("")

For the copy stuff have a look at FileSystemObject (aka fso)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[mrclasik]

That's cool PH, any way to take that info and to the next stage after clicking okay. Let me futher complicate it by asking if there is a way to default select folder to appdata/mozilla/firefox/profile for instance.

Man, I have to learn this VBS stuff..

Thanks..

 

[earthandfire]

Set strStartDir to your base folder - note this will become the root of the BrowseForFolder dialog

using PHV's example

MsgBox PickFolder("c:\windows") will make c:\windows the start position.


Hope this helps.

 

[mrclasik]

Okay, got that, now is there anyway to copy the contents of that folder selected including all subfolders and files to anothere directory..?. Almost there...

Thanks for the help.

 

[tsuji]

Check out copyfolder method of fso.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsmthcopyfolder.asp