- ©«¤l
- 75
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 135
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2007 010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-18
- ³Ì«áµn¿ý
- 2013-10-26
|
Sub ¤å¥ó()
Set file = CreateObject("scripting.filesystemobject")
For Each fils In file.getfolder("c:\").Files
Filename = Filename & fils.Name & Chr(13)
Next
MsgBox Filename
End Sub
¬Ý¬Ý这个 |
|