Anyway to copy hidden files too...

[Ross1811]

Hello Everyone,

This script works well for me but the only problem that it has is that it does not copy hidden files also. Is there anyway I can modify this script to copy hidden files too?

Thanks,
Ross

 Option Explicit
 Dim oSHApp, oSHFolder, ErrNum
 Set oSHApp = CreateObject("Shell.Application")
 Set oSHFolder = oSHApp.Namespace("C:\test")
 
 oSHApp.Namespace("C:\test2").CopyHere oSHFolder.Items,16+512

 

[dollinger]

you might want to try it with the FileSystemObject

Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\Test\*.*" , "C:\Test2\" , OverwriteExisting

set objFSO = Nothing

Reference to the FileSystemObject:

http://www.microsoft.com/technet/scriptcenter/guide/sas_scr_xfxi.mspx?mfr=true

I hope this helps....

 

[Ross1811]

is there a way that I could put that on the folder?, I dont want to try looping through all the folder and subfolders to copy every single file.
Is there another way? using the Shell.application?????

Ross

 

[dollinger]

Just replace CopyFile with CopyFolder like so:

Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\Test" , "C:\Test2" , OverwriteExisting

set objFSO = Nothing

Pls read:

http://www.microsoft.com/technet/scriptcenter/guide/sas_scr_xfxi.mspx?mfr=true

I have to investigate on "shell.application"

I hope this helps...

 

[jessicatechy]

you can use the xcopy command.
xcopy c:\folder\*.* /h
this copies hidden and system files.
other options:

 

[jessicatechy]

sorry, i forgot to mention. that was a dos command. you have to imbed it in vbs using .run

 

[Ross1811]

Yes I know those things would work, I wanted it to copy all my files even hidden with the shell.application, in my original code, this give me a verbose output,



Thanks,
Ross

 

[dollinger]

got it!
this example is straight from:

http://msdn.microsoft.com/library/d...m/shell/reference/objects/folder/copyhere.asp

dim objShell
dim objFolder
        
set objShell = CreateObject("Shell.Application")
set objFolder = objShell.NameSpace("C:\target")
 
if not objFolder is nothing then
   objFolder.CopyHere("C:\source\*.*"),16+512
end if
 
set objShell = nothing
set objFolder = nothing

this copies hidden and system-files.

I hope this helps