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

ÖØÊ°VBÖ®Ò»£¬ÈÕÖ¾±à

ÖØÊ°VBÖ®Ò»£¬ÈÕÖ¾±à
 
PMP  ¹Ø¾¢ËÉ
 
    ¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB½øÐпª·¢¡£
    Ê×ÏÈÊÇΪ×Ô¶¯»¯²âÊÔÈí¼þÔö¼ÓÈÕÖ¾¹¦ÄÜ£¬½«Ã¿ÌìµÄÊý¾Ý¼Ç¼µ½Ò»¸ölogÎļþ¡£ÎÒΪÁË·½±ãʹÓÃÁËFSO¶ÔÏó£¬ÓÉÓÚFSO¶ÔÏó°üº¬ÔÚScripting ÀàÐÍ¿â (Scrrun.Dll)ÖУ¬ËùÒÔÔÚʹÓÃÇ°Ê×ÏÈÐèÒªÔÚÔÚ¹¤³ÌÖÐÒýÓÃÕâ¸öÎļþ£¬µ¥»÷“¹¤³Ì”£¬“ÒýÓÔ£¬È»ºóÔÚ“ÒýÓÔ¶Ô»°¿òÖÐÑ¡ÖГMicrosoft Scripting Runtime”Ç°µÄ¸´Ñ¡¿ò£¬È»ºóµ¥»÷“È·¶¨”¡£
   
     Îļþϵͳ¶ÔÏóFSOµÄÓ¢ÎÄÈ«³ÆÊÇFile System Object £¬ÕâÖÖ¶ÔÏóÄ£ÐÍÌá³öÁËÓбðÓÚ´«Í³µÄÎļþ²Ù×÷Óï¾ä´¦ÀíÎļþºÍÎļþ¼ÐµÄ·½·¨¡£Í¨¹ý²ÉÓÃobject.methodÕâÖÖÔÚÃæÏò¶ÔÏó±à³ÌÖй㷺ʹÓõÄÓï·¨£¬½«Ò»ÏµÁвÙ×÷ÎļþºÍÎļþ¼ÐµÄ¶¯×÷ͨ¹ýµ÷ÓöÔÏó±¾ÉíµÄÊôÐÔÖ±½ÓʵÏÖ¡£
   
      Ŀ¼³£ÓòÙ×÷:
      CreateFolder £º´´½¨Ò»¸öÎļþ¼Ð ¡£
¡¡¡¡DeleteFolder£ºÉ¾³ýÒ»¸öÎļþ¼Ð ¡£
¡¡¡¡MoveFolder £ºÒƶ¯Ò»¸öÎļþ¼Ð ¡£
¡¡¡¡CopyFolder£º¸´ÖÆÒ»¸öÎļþ¼Ð ¡£
¡¡¡¡FolderExists£º ²éÕÒÒ»¸öÎļþ¼ÐÊÇ·ñÔÚÇý¶¯Æ÷ÉÏ ¡£
   
    ÓÉÓÚÓйØFile¶ÔÏóµÄ¸´ÖÆ£¬É¾³ý£¬Òƶ¯µÈ²Ù×÷ºÍFolder¶ÔÏóÀàËÆ£¬ËùÒÔÕⲿ·ÖÄÚÈݾͲ»ÔÙÖظ´¡£ÕâÀïÖ÷Òª½²ÊöÀûÓÃFile¶ÔÏóºÍTextStream¶ÔÏó²Ù×÷Îı¾Îļþ¡£
   
    ͨ³£¶ÔÎı¾ÎļþµÄ²Ù×÷°üÀ¨ÔÚÎı¾ÎļþÖд´½¨Êý¾Ý£¬ÔÚÎı¾ÎļþÖÐÌí¼ÓÊý¾Ý£¬É¾³ýÎı¾ÎļþµÄÊý¾ÝµÈ²Ù×÷¡£ÕâЩ²Ù×÷¶¼¿ÉÒÔͨ¹ýFile¶ÔÏó
ºÍFileSystemObject¶ÔÏóµÄÏà¹Ø·½·¨Íê³É¡£²»¹ýÔÚʹÓÃ֮ǰ£¬Ê×ÏÈÒª´´½¨Ò»¸öÎı¾Îļþ£¬Õâ¿ÉÒÔͨ¹ýÈýÖÖ·½·¨Íê³É¡£Ò»ÖÖ·½·¨ÊÇʹÓÃ
FileSystemObject¶ÔÏóµÄ CreateTextFile ·½·¨¡£Òª´´½¨Ò»¸ö¿ÕÎı¾Îļþ£¬¿ÉÒÔÓÃÒÔÏÂÓï¾ä£º
¡¡¡¡
    1. Dim fsoTest As New FileSystemObject, fil1 As File
¡¡¡¡   Set fil 1= fsoTest.CreateTextFile(“c:\testfile.txt", True)
       CreateTextFile·½·¨µÄµÚÒ»¸ö²ÎÊýÓÃÀ´Ö¸¶¨£¬µÚ¶þ¸ö²ÎÊýÓÃÀ´Ö¸¶¨Èç¹û´ÅÅÌÉÏÒѾ­´æÔÚÒª´´½¨µÄÎļþÊÇ·ñ¸²¸Ç£¬TRUE±íʾ¸²¸Ç£¬ FALSE±íʾ


Ïà¹ØÎĵµ£º

VBÁ¬½ÓACCESSÊý¾Ý¿â¾«¼ò°æ

Option Explicit
Private Sub Form_Load()
'¹¤³Ì->ÒýÓÃ->Ñ¡ÖÐMicrosoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'Á¬½ÓÊý¾Ý¿âµÄ´úÂë¶Î
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Sour ......

vb´ò°üÏòµ¼ Éú³É°²×°Îļþ

vb¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0  mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔصĺܶలװ³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......

VB³õ¼¶Ä¾Âí

   Ò» ľÂíµÄÓÉÀ´
       ľÂí£¬¼´“ÌØÂåÒÁľÂ픣¨trojan horse£©¡£
   ¶þ ËùÐèÒªµÄ¼¼Êõ
     Ò»¸ö³É¹¦µÄľÂí£¬³ýÁËÖÆ×÷³öÏà¹ØµÄ³ÌÐòÒÔÍ⣬»¹ÐèҪʵÏÖÒÔϼ¸·½ÃæµÄ¹¦ÄÜ¡£1£¬Ä¾ÂíµÄÒþ²Ø 2£¬Ä¾ÂíµÄÔËÐÐ 3£¬Ä¾ÂíµÄ¸´ÖÆ 4£¬Ä¾ÂíµÄ´«²¥µÈ ......

VBÄ£Äâ·¢ËÍICMPÊý¾Ý°ü(´úÂëÖ±½Ó¿ÉÓÃ)

'*********************************************************************
'         ³ÌÐòÉè¼Æ ºÓÄϹ¤Òµ´óѧÐÅÏ¢Íø-http://www.hautbbs.com.cn
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄУ԰ÍøÂçƽ̨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ