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

vbʵÏÖĿ¼ÏÂËùÓÐÎļþÃûĿ¼Ãû³ÆµÄ»ñÈ¡

 Ç°¼¸ÈÕ£¬Óиö¸çÃÇ˵ÓкܶàµçÓ°£¬ÎÊÎÒÒª²»Òª£¿ÎÒ¾ÍÈÃËûÒ»¸öÒ»¸öµÄд¹ýÀ´£¬ÈøçÃÇÀÛ¸ö²»Çá¡£ËùÒÔ¾ÍÏë¼òµ¥Ð´¸ö³ÌÐò£¬»ñȡһÏÂÎļþ¼ÐÏÂÃæµÄËùÓÐÎļþÃû³Æ£¬ÕâÑù¾Í¿ÉÒÔ½ÚÊ¡ºÜ¶àʱ¼äÁË¡£
Èí¼þÄØ£¬ÎÒÒѾ­ÉÏ´«µ½ÍøÕ¾ÁË£ºhttp://download.csdn.net/source/1802599
vb°æ±¾Ä¿Â¼»ñÈ¡Æ÷ 1.0£¨Áú¾í·ç³öÆ·£©
˵Ã÷£º
1.Ñ¡ºÃĿ¼ºó£¬¿ÉÒÔÖ±½ÓµÃµ½Ä¿Â¼ÏµÄÎļþ¼ÐºÍÎļþÃû³Æ£¬ÒÔ¼°Í³¼ÆÊýÄ¿¡£
2."Ê÷Ðνṹ"°´¼ü½«»á°Ñ¸÷Îļþ¼ÐºÍÎļþÂÞÁÐÏÂÀ´¡£
3."Ê÷ÐÎÕ¹¿ª"½«°ÑĿ¼ÏµÄ×ÓĿ¼Ҳһ²¢Õ¹¿ª¡£´ó¼Ò²âÊÔµÄʱºòÐèҪעÒ⣬²»ÒªÓÃÌ«ÉîµÄĿ¼À´²â¡£
ÏÂÃæ¿ªÊ¼¶¯ÊֵIJ½Ö裺
 vbÖÐÓиöº¯ÊýDir()£¬Õâ¸ö¾ÍÊǽñÌìµÄÖ÷½ÇÁË¡£Dir()µÚÒ»´Îµ÷ÓõÄʱºò£¬±ØÐëÖ¸¶¨Â·¾¶¡£È»ºóÆä»á·µ»ØÒ»¸östring£¬Õâ¾ÍÊÇÒ»¸öÎļþ¼Ð£¬»òÕßÒ»¸öÎļþµÄÃû³ÆÁË¡£¾ßÌåÓ÷¨£¬´ó¼Ògoogleһϰɡ£ÎҾͲ»¶à˵ÁË¡£
È»ºó¾ÍÊÇÇø·Ö·µ»ØÖµÊÇÎļþ¼Ð£¬»¹ÊÇÎļþ¡£ÕâÀïÓõ½µÄ¾ÍÊÇvbDirectory(=16)Õâ¸öÊôÐÔÁË¡£
OK. ʣϵľͼòµ¥ÁË£¬ÎÒ°ÑÎÒÈí¼þÖеÄÕⲿ·Ö·¢³öÀ´shareһϣ¬´ó¼Ò²»ÒªËµË®Æ½Ì«²îÓ´£º
Ê×ÏÈÎÒÊǽ«ÎļþÏÔʾ×öÁËÇø·Ö£ºÎļþ¼ÐÃû³ÆÏÔʾfolderlist()£¬ÎļþÃû³ÆÏÔʾfilelist():
Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0Áбí 1Ê÷ÐÎ 2Ê÷ÐÎÕ¹¿ª
'Îļþ¼ÐÊýºÍÃû³Æ
Dim sf As String
sf = Dir(pathname, vbDirectory) '»ñÈ¡µÚÒ»¸öĿ¼Ãû
foldernum = 0
Do While sf <> ""
' Ìø¹ýµ±Ç°µÄĿ¼¼°ÉϲãĿ¼
    If sf <> "." And sf <> ".." Then
        If (GetAttr(pathname + sf) And vbDirectory) = vbDirectory Then
            If treeflag = 0 Then
                Text2 = Text2 & sf & vbCrLf  ' Èç¹ûËüÊÇÒ»¸öĿ¼£¬½«ÆäÃû³ÆÌí¼Óµ½Áбí
            ElseIf treeflag = 1 Then
                Text2 = Text2 & Treestr & sf & vbCrLf
            ElseIf treeflag = 2 Then 'Ê÷ÐÎÕ¹¿ªµÄʱºò£¬ÐèÒªÁ˽â×ÓĿ¼£


Ïà¹ØÎĵµ£º

VBÄܼǼÖÐÎĵļüÅ̼Ǽ

http://hi.baidu.com/qwestw/blog/item/a8b41663eb7fca690d33fa46.html
ÄܼǼµ½ÖÐÎÄ£¬È±µãÊDz»ÄܼǼµ½Ctrl£¬shift£¬alt£¬capslock£¬home£¬del£¬pageUP£¬pageDownµÈ¼þµÄ°´ÏÂ״̬¡£
vb6´úÂëÈçÏ£º
Private Sub Form_Load()
WM_HXWDLLWX_HOOKKEY = RegisterWindowMessage("WM_HXWDLLWX_HOOKKEY")
PrevWndProc = SetWind ......

dzÒé·ÇAccessÊý¾Ý¿âÔÚVBÖеıà³Ì¼°Ó¦ÓÃ

Visual BasicÓÐ×ÅÇ¿´óµÄÊý¾Ý¿â´æÈ¡ÄÜÁ¦£¬²»½öÄܹ»Ö±½ÓÖ§³ÖMs AccessÊý¾Ý¿â£¬¶øÇÒͨ¹ýÆäÄÚ²¿°²×°µÄISAMÇý¶¯³ÌÐòʹËüÄܼä½ÓÖ§³ÖFoxPro¡¢dBASEµÈÍâÀ´Êý¾Ý¿â¡£±¾ÎIJ»½ö´ÓVBÊý¾Ý¿âÌåϵ½á¹¹µÄ½Ç¶È̽Ë÷ÁËVB¶ÔÕâЩÍâÀ´Êý¾Ý¿âµÄÖ§³Ö£¬»¹½áºÏÁËһЩʵÀý¾ßÌå²ûÊöÁËʹÓÃÊý¾Ý¿â´æÈ¡¶ÔÏó±äÁ¿µÄ·½·¨ÊµÏÖÕâЩÍâÀ´Êý¾Ý¿âµÄн¨¡¢¿â½á¹¹Ð޸ġ¢ ......

¹ØÓÚVBµÄListBox¿Ø¼þÑ¡¶¨ÏîµÄ»ñÈ¡

 ½ñÌìÔÚ×öVBÏîÄ¿µÄʱºò£¬Ê¹ÓÃÁËListBox¿Ø¼þÀ´»ñȡһЩÁбíÏÓÃÁ˲ŷ¢ÏÖûÓÐListViewºÃÓã¬ListViewÓÐItems£¨SelectItem£©¿ÉÒÔ¶¨Î»µ½µ±Ç°µÄÑ¡ÖÐÏ¶øListBoxûÓУ»ListViewÓÐTag¿ÉÒÔÉ趨ѡÖÐÏîµÄ±êʾ£¬ListBoxûÓС£ÉÏÍøÒ²ÕÒ²»µ½Ô­Òò£¬ÖªµÀÈ¥ÔĶÁMSDNºÍ×Ô¼º²âÊÔ¡£
Ö®ºóÖÕÓÚÕÒµ½ÁËÎÊÌâµÄ¹Ø¼ü¡£
ʼþ1£ºÌí¼ÓListBoxÏ ......

C#Öе÷ÓÃVBÖÐInputbox¹¦ÄÜ

  C#×Ô¼ºÃ»ÓÐInputboxÕâ¸öÀ࣬µ«ÊÇInputboxÒ²ÂùºÃÓõģ¬ËùÒÔÓÐÁ½ÖÖ·½·¨¿ÉÒÔʹÓÃ
   Ò»£º.¼ä½Óµ÷ÓÃvbÖеÄInputbox¹¦ÄÜ
      1¡£ÔÚÏîÄ¿ÖÐÌí¼Ó¶ÔMicrosoft.VisualBasicÒýÓÃ
      2¡£ÔÚÏîÄ¿ÖÐÌí¼ÓÃüÃû¿Õ¼äUsing Microsoft.VisualBasic;
  &n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ