- ©«¤l
- 29
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 42
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-9-22
- ³Ì«áµn¿ý
- 2013-1-9
|
¦^´_ 28# GBKEE
§Ú¬ÝÀ´¤F~
·PÁÂ~
¸ò4#ªºµ{¦¡½X®t¤F¤@ÂI
Private Sub ¤l¸ê®Æ§¨(TheFolder)
Dim fs As Object, f As Object
Set fs = CreateObject("Scripting.FileSystemObject").GetFolder(TheFolder)
=========================================================
Private Sub ¤l¸ê®Æ§¨(¸ê®Æ§¨ As Variant)
Dim fs As Object, f As Variant
Set fs = CreateObject("Scripting.FileSystemObject").GetFolder(¸ê®Æ§¨)
¥i¥H½Ð°Ý¤W±¸ò¤U±ªº®t§O¶Ü |
|