Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB»ñȡϵͳÒþ²ØÊôÐÔÎļþ¼Ð

ÏÂÃæ´úÂ룬ֻÄÜ»ñȡϵͳÒþ²ØÎļþ¼ÐºÍÆÕͨÎļþ¼Ð£¬
Dim strFile As String
  Const strPath = "c:\"
 
  strFile = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
  Do While strFile <> ""
        DoEvents
        If (GetAttr(strPath + strFile) And vbDirectory) = vbDirectory Then
          If strFile <> "." And strFile <> ".." Then
              Print strFile
          End If
        End If
  strFile = Dir
  Loop


ÄÇôÈçºÎ»ñȡӵÓРϵͳÒþ²ØÊôÐÔµÄÎļþ¼Ð£¬
ÁíÍ⣬´ó¼ÒÓÐûÓÐרÃÅ´¦Àí Îļþ¼ÐµÄ APIº¯Êý¼¯ºÏ±í
Dir º¯Êý
     

·µ»ØÒ»¸ö String£¬ÓÃÒÔ±íʾһ¸öÎļþÃû¡¢Ä¿Â¼Ãû»òÎļþ¼ÐÃû³Æ£¬Ëü±ØÐëÓëÖ¸¶¨µÄģʽ»òÎļþÊôÐÔ¡¢»ò´ÅÅ̾í±êÏàÆ¥Åä¡£

Óï·¨

Dir[(pathname[, attributes])]

Dir º¯ÊýµÄÓï·¨¾ßÓÐÒÔϼ¸¸ö²¿·Ö£º

²¿·Ö ÃèÊö
pathname ¿ÉÑ¡²ÎÊý¡£ÓÃÀ´Ö¸¶¨ÎļþÃûµÄ×Ö·û´®±í´ïʽ£¬¿ÉÄܰüº¬Ä¿Â¼»òÎļþ¼Ð¡¢ÒÔ¼°Çý¶¯Æ÷¡£Èç¹ûûÓÐÕÒµ½ pathname£¬Ôò»á·µ»ØÁ㳤¶È×Ö·û´® ("")¡£
attributes ¿ÉÑ¡²ÎÊý¡£³£Êý»òÊýÖµ±í´ïʽ£¬Æä×ܺÍÓÃÀ´Ö¸¶¨ÎļþÊôÐÔ¡£Èç¹ûÊ¡ÂÔ£¬Ôò»á·µ»ØÆ¥Åä pathname µ«²»°üº¬ÊôÐÔµÄÎļþ¡£ 


ÉèÖÃÖµ
<


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

ÔõôÓÃVB×öÔ¶³ÌÉÏ´«ÎļþʱµÄ½ø¶ÈÌõ£¿

ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ