ÖØÊ°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±íʾ
Ïà¹ØÎĵµ£º
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¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0 mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔصĺܶలװ³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......
Ò» ľÂíµÄÓÉÀ´
ľÂí£¬¼´“ÌØÂåÒÁľÂ픣¨trojan horse£©¡£
¶þ ËùÐèÒªµÄ¼¼Êõ
Ò»¸ö³É¹¦µÄľÂí£¬³ýÁËÖÆ×÷³öÏà¹ØµÄ³ÌÐòÒÔÍ⣬»¹ÐèҪʵÏÖÒÔϼ¸·½ÃæµÄ¹¦ÄÜ¡£1£¬Ä¾ÂíµÄÒþ²Ø 2£¬Ä¾ÂíµÄÔËÐÐ 3£¬Ä¾ÂíµÄ¸´ÖÆ 4£¬Ä¾ÂíµÄ´«²¥µÈ ......
'*********************************************************************
' ³ÌÐòÉè¼Æ ºÓÄϹ¤Òµ´óѧÐÅÏ¢Íø-http://www.hautbbs.com.cn
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄУ԰ÍøÂçƽ̨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ ......