- ©«¤l
- 46
- ¥DÃD
- 18
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- WINXP,win7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¨{¤l¸Ì
- µù¥U®É¶¡
- 2010-5-22
- ³Ì«áµn¿ý
- 2011-10-27
|
¥»©«³Ì«á¥Ñ webbliu ©ó 2011-8-5 11:57 ½s¿è
¦^´_ 4# elinbit
Dear ¤j¤j ÁÂÁÂ~
½Ð°Ý~~
±ý°õ¦æ®É¥X²{ open ¥¼«Å§i" ½Ð°Ý¸ÓÈ n«Å§i¬Æ»ò?
open FileNum ¤]¬O
Dear ¤j¤j ¶¶«K ½Ð±Ð
¦pªG¬O³o¼Ë
¥ØªºÁÙ¬O¦b§ä¥X¤£¦s¦bªº"¸ô®|ÀÉ®×"
Apath ¬O±qTable Ū¥Xªº"¸ô®|ÀÉ®×"¡A«Ü¦hµ§¡C
¤U±¨â¬qµ{¦¡ §Ú¦b°µ¤ñ¸û«á ¡A ¤p©ó10byteªºÀÉ®× ³£µLªk¿é¥X¦Ü.txt¡C
½Ð°Ý¸Ó¦p¦ó×¥¿
«D±`·PÁÂ- Dim Apath as string
- Dim R As System.IO.FileInfo
-
- For i = 1 To n
- R = My.Computer.FileSystem.GetFileInfo("Apath")
- If R.Length < 10 Then '½Ð°Ý³o¸ÌªºR.length §ï«ç»ò¼g©O
- Console.writeline(size + "¤p©ó" + Apath)
- End If
½Æ»s¥N½X- Dim size as long
- Dim Apath as string
-
- For i = 1 To n
- On Error Resume Next
- size = Filelen(Apath)
- If size < 10 Then
- Console.writeline(size + "¤p©ó" + Apath)
- End If
½Æ»s¥N½X |
|