- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
¦^´_ 3# luhpro
ÁÂÁ¤j¤j¡C
¤p§Ì¤µ¤é¦b¤½¥q
¨Ì¤j¤jªº¤è¦¡¡A¨ä
µ²ªGÁÙ¬O¬Û¦P¡C
²{¤p§Ì§ï¥Î¤U¦C¤è¦¡
¹B§@- '³]©w¤Þ¥Î¶µ¥Ø Windows Script Host Object Model
-
- Dim myWsh As IWshRuntimeLibrary.WshShell
- Dim myStr As String
- Dim myFso As Scripting.FileSystemObject
- Dim myName As String
- Dim myNewPath As String
-
-
- Set myWsh = CreateObject("Wscript.Shell")
- myStr = "\\multibay\scan" '«ü©w¸ê®Æ§¨
- 'Debug.Print CurDir
- myWsh.CurrentDirectory = myStr
- 'Debug.Print CurDir
-
- Set myFso = New Scripting.FileSystemObject
- myName = "\\multibay\scan\T-1.PDF" '½Æ»s¨Ó·½ÀÉ®×
- myNewPath = "D:\TEMP\" '«ü©w½Æ»s¥Ø¼Ð
- myFso.CopyFile myName, myNewPath, OverWriteFiles:=True
- '¤£¯à¨Ï¥ÎMask¦r¤¸
- 'myFso.GetFile(myName).Copy myNewPath, OverWriteFiles:=True
- Set myFso = Nothing 'ª«¥óªºÄÀ©ñ
- Set myWsh = Nothing 'ª«¥óªºÄÀ©ñ
½Æ»s¥N½X |
|