Const OverWriteFiles = True7 t/ u# ~) N9 k3 R% L. T: _
Set objFSO = CreateObject("Scripting.FileSystemObject")
( z3 r/ ]( q/ q: WobjFSO.CopyFolder "C:\Documents and Settings\zaibei\My Documents" , "C:\Documents and Settings\sw\My Documents" , OverWriteFiles$ A# ^4 e3 X( I4 C1 N8 f3 |
objFSO.CopyFolder "C:\Documents and Settings\zaibei\桌面" , "C:\Documents and Settings\sw\桌面" , OverWriteFiles
$ n" U8 c: Y% m, a以上是复制文件夹（包括里面的文件和目录），请问各位高人能否写个判断语句，判断如果"zaibei"这个目录不存在，就copy到zhab这个目录下去。 谢谢！

相信老大应该知道的 您可以等等~

Set objNetwork = CreateObject("Wscript.Network")# S6 t6 W6 s$ _9 S. b$ N E
strUser = objNetwork.UserName
8 E K, o& T7 P$ f9 v7 v. h8 {, L9 K8 ?& `+ R% q6 v) M
strPath = "C:\Documents and Settings\" & strUser & "\Application Data\Microsoft\Templates"' `! ^) W" E* Q6 ?" w9 ] X8 S. s* k/ L Z

6 C6 r) r7 L' S+ zSet objFSO = CreateObject("Scripting.FileSystemObject")9 ~( v5 n# A$ @" }& N

% [8 v$ d% x) V! X, o% xIf objFSO.FolderExists(strPath) Then q2 d+ O' R% ^$ X
Wscript.Echo "The folder exists."6 |2 L0 H# V7 m9 v' i
Else
. E( {7 Z+ g- t8 N- T. j Wscript.Echo "The folder does not exist."7 M7 E* i% q3 v2 H) Z$ R( O! Y
End If
. M1 h/ M4 b5 ~" |( K7 B0 }9 A5 P" k0 d
连接：
+ y9 F) K/ Z2 P( c$ H' E5 m! Lhttp://www.microsoft.com/technet ... /feb05/hey0228.mspx