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Éè¼Æ¶¯»Ê±ÖÓ
³ÌÐòÃû£ºSec-Time.vbp
³ÌÐòÀà±ð£ºÍêÕûµÄVB³ÌÐò
¹¦ÄÜ£ºÏÔʾһ¸ö¶¯»Ê±ÖÓ£¬¸ÃʱÕëËæ×ÅÿһÃë¶ø¶¯Ì¬±ä»¯¡£
³ÌÐò˵Ã÷
1£®ÈçºÎ»Ê±ÖÓ±íÅÌÉϵÄËùÓÐÖ±ÏßÔªËØ£¿
ÓÃLoadÃüÁÁ¢ÔʼLine¿ØÖƵÄ14¸ö¿½±´£¨ÒòΪ±íÅÌÓÐ12¸öµãºÍʱ¡¢·Ö¡¢Ãë¹²15¸öLine£©£¬¸Ã¿ØÖÆÊý×éÿһ¸öʵÀýµÄ¶Ëµã×ø±êÊôÐÔÉèÖÃΪÿÌõÏßÔÚʱ ......
Ò»¡£Êý¾ÝÀàÐÍ
Byte 1
×Ö½Ú ÎÞ·ûºÅ
Interger 2
×Ö½Ú
Long 4
×Ö½Ú
Float 4
×Ö½Ú
Double 8
×Ö½Ú
String
Date
Boolean
Currency
Variant
2.
±ä³¤×Ö·û´®ºÍ¶¨³¤×Ö·û
ϵͳĬÈϳõʼֵΪ¿Õ×Ö·û´®;
±ä³¤×Ö·û´®£ºdi ......
°ïÅóÓѸĵÄһС¶Î¹Ø¼ü´Ê·ÖÎö´úÂ룻 º¬Á½¸öµ¥´Ê¸´ºÏ¼ÆÊý
Private Function CollectWords() As Dictionary(Of String, Integer)
'Create a new dictionary
Dim table As New Dictionary(Of String, Integer)
'Prompt for the user
Console.WriteLine(
"Enter a line : ")
'Get the user's input
Dim input As St ......
ÄÚÈÝÌáÒªÕªÒª£º The software of visual basic developed by Microsoft corporation is becoming one of the main develop tools at today¡£ As it's remarkable peculiarity, the Grid control has very great practical and active use¡£ This topic discusses how to use the grid control of VB to develop prati ......
Visual BasicÓÐ×ÅÇ¿´óµÄÊý¾Ý¿â´æÈ¡ÄÜÁ¦£¬²»½öÄܹ»Ö±½ÓÖ§³ÖMs AccessÊý¾Ý¿â£¬¶øÇÒͨ¹ýÆäÄÚ²¿°²×°µÄISAMÇý¶¯³ÌÐòʹËüÄܼä½ÓÖ§³ÖFoxPro¡¢dBASEµÈÍâÀ´Êý¾Ý¿â¡£±¾ÎIJ»½ö´ÓVBÊý¾Ý¿âÌåϵ½á¹¹µÄ½Ç¶È̽Ë÷ÁËVB¶ÔÕâЩÍâÀ´Êý¾Ý¿âµÄÖ§³Ö£¬»¹½áºÏÁËһЩʵÀý¾ßÌå²ûÊöÁËʹÓÃÊý¾Ý¿â´æÈ¡¶ÔÏó±äÁ¿µÄ·½·¨ÊµÏÖÕâЩÍâÀ´Êý¾Ý¿âµÄн¨¡¢¿â½á¹¹Ð޸ġ¢ ......