- ©«¤l
- 560
- ¥DÃD
- 159
- ºëµØ
- 0
- ¿n¤À
- 723
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-7-4
![½×¾ÂºaÅA¾±³¹ ½×¾ÂºaÅA¾±³¹](images/common/medal14.gif) ![½×¾ÂÃÙ§U¾±³¹ ½×¾ÂÃÙ§U¾±³¹](images/common/medal3.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif)
|
DEAR lpk187 ¤j¤j
·PÁ±z. ¤p§Ì¨Ì±z«ü¾É§ä¨ìµª®×ù THANKS*10000
Sub ¦C¥XÀÉ®×()
path1 = "\\Pcbfs02\c740\Àˮ֪í\*.*"
file1 = Dir(path1): r = 1
Do While file1 <> ""
Cells(r, 1) = file1
r = r + 1
file1 = Dir '¨ú±o¤U¤@ÓÀɦW
Loop
End Sub |
|