ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¸ê®Æ§¨ÂлsÀÉ®×°ÝÃD´M°Ý

[µo°Ý] ¸ê®Æ§¨ÂлsÀÉ®×°ÝÃD´M°Ý

DEAR  ALL ¤j¤j
1 ¦³µL¿ìªk¼gVBA±N A¸ê®Æ§¨¤ºALLÀɮצ۰ÊCOPY¦Ü B¸ê®Æ§¨
1.1 A¸ê®Æ§¨¤ºÀɮקΦ¡ .XLS .DOC .JPG ....³£¦³.
2 ·Ð¤£§[½ç±Ð  THANKS*10000
ù

¦^´_ 1# rouber590324
¸Õ¸Õ¬Ý,¥i¥H¤£§R°£¸ê®Æ§¨ª½±µÂл\§Y¥i
  1. Sub test()
  2. floderName = "C:\Users\user\Downloads\·s¼W¸ê®Æ§¨"
  3. Backup_floderName = "C:\Users\user\Downloads\·s¼W¸ê®Æ§¨2"
  4. If Dir(floderName, 16) = "" Then MsgBox "µL¦¹¸ê®Æ§¨": Exit Sub
  5. 'If Dir(Backup_floderName, 16) <> "" Then Shell "c:\windows\system32\cmd.exe /c rd ""C:\Users\user\Downloads\·s¼W¸ê®Æ§¨2""/s/q", vbHide '¦¹¦æ¬°§R°£¸ê®Æ§¨µ{¦¡½X
  6. Set fso = CreateObject("Scripting.FileSystemObject")
  7. fso.CopyFolder floderName, Backup_floderName, True '½Æ»s¸ê®Æ§¨(Âл\)
  8. End Sub
½Æ»s¥N½X
PKKO

TOP

DEAR PKKO ¤j¤j
100%²Å¦X»Ý¨D  THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD