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

vbÖÐÔõÑù²é¿´Ò»¸öÎļþ¼ÐÏÂÃæµÄÎļþ¸öÊý

vbÖÐÔõÑù²é¿´Ò»¸öÎļþ¼ÐÏÂÃæµÄÎļþ¸öÊý ,²¢ÇÒҪȡ³öÕâÀïÃæ×îºóÒ»¸öÎļþ¸üеÄʱ¼ä,Ö÷ÒªÊÇÓÃÀ´²é¿´Õâ¸öÎļþ¼ÐÊÇ·ñÓиüÐÂ.ÓÐÍêÕûµÄÄ£¿é¸üºÃ¹þ.лл
˵´íÁË,²»ÊDzé¸öÊý.ÊÇÈ¡Îļþ¼ÐÀïÃæµÄÎļþÃû


File1Àï¾ÍÊÇÎļþÃû,ÓÃforÑ­»·µÃµ½ËùÓеÄ

Ö±½ÓȡĿ¼µÄʱ¼ä¼´¿É
VB code:
FileDateTime("C:\Windows")


Îļþ¸üеÄʱ¼ä ¾ÙÀý
fname="d:\www\a.txt"
print FileDateTime(fname) '»ñµÃÏêϸµÄÐÞ¸Äʱ¼ä
print format(FileDateTime(fname), "YYYY-MM-DD") '»ñµÃÐÞ¸ÄÈÕÆÚ

ÊղصÄÒ»¸ö´úÂ룺

Public Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String, sFiles() As String) As Long
'»ñȡijĿ¼ÏµÄËùÓÐÎļþÃû,´æ·ÅÓÚsFiles()ÖÐ

Static es As Long 'ÎļþÊýÄ¿
Dim sDir    As String
Dim sSubDirs() As String '¡®´æ·Å×ÓĿ¼Ãû³Æ
Dim ex As Long
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sDir = Dir(sPath & sFileSpec)


'»ñµÃµ±Ç°Ä¿Â¼ÏÂÎļþÃûºÍÊýÄ¿
Do While Len(sDir)
es = es + 1
ReDim Preserve sFiles(1 To es)
sFiles(es) = sDir
'sFiles(es) = sPath & sDir
sDir = Dir
Loop

'»ñµÃµ±Ç°Ä¿Â¼ÏµÄ×ÓĿ¼Ãû³Æ
ex = 0
sDir = Dir(sPath & "*.*", 16)
Do While Len(


Ïà¹ØÎÊ´ð£º

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

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

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

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

Vb.net Access CrystalReport - .NET¼¼Êõ / VB.NET

µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......

VB µ÷Óà vc ±àдµÄdll - C/C++ / C++ ÓïÑÔ

ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ