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 µ«²»°üº¬ÊôÐÔµÄÎļþ¡£
ÉèÖÃÖµ
<
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......