ÖØÊ°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±íʾ
Ïà¹ØÎĵµ£º
http://www.webuc.net/ddf3/archive/2005/08/25/6142.aspx
²»ÓÃFSOµÄ¸´ÖÆÎļþ¼ÐµÃ·½·¨£¿
ÓÃAPIº¯Êý SHFileOperation
ÒÔÏÂÊÇʹÓÃSHFileOperationɾ³ý¸´ÖÆÒƶ¯ÎļþµÄÀý×Ó£¬¿ÉÒÔ¸´ÖÆÎļþ¼Ð
Private Type SHFILEOPSTRUCT
¡¡¡¡hwnd As Long
¡¡¡¡wFunc As Long
¡¡¡¡pfrom As String
¡¡¡¡pTo As String
¡¡¡¡fFlags As ......
'¶ÁÊý¾Ýµ½¶þ½øÖÆ×Ö¶Î
Public Sub ReadfromBLOB(filed As ADODB.Field, Filen As String)
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer
'´«ËͿ鵥λ´óС
Const ChunkSize As Integer = 16384
Dim MediaTemp As String
Dim lngOffset As Long
Di ......
'*********************************************************************
' ³ÌÐòÉè¼Æ ºÓÄϹ¤Òµ´óѧÐÅÏ¢Íø-http://www.hautbbs.com.cn
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄУ԰ÍøÂçƽ̨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ ......
VBÖд´½¨µÄDLLÖ»ÊÇCOM×é¼þ£¬ÎÞ·¨×÷ΪÊä³öº¯ÊýµÄDLL¡£½ñÌì´ÓÅóÓÑÄÄÀï¸ãµ½Ò»ÖÖ¿ÉÒÔ´´½¨Êä³öº¯ÊýµÄDLLµÄ·½·¨£¬ÐÀϲ֮Ó࣬²»¸Ò¶ÀÏí£¬ÏÖÔÚ°ÑËû½éÉܸø´ó¼Ò¡£
¡¡¡¡VB±àÒëÎļþʵ¼ÊÉϲÉÈ¡ÁËÁ½´Î±àÒëµÄ·½·¨£¬Ê×ÏÈÊǵ÷ÓÃc2.exe²úÉúOBJÎļþ£¬È»ºóµ÷ÓÃLink.exeÁ¬½Ó¡£Èç¹ûÔÚlinkµÄʱºòÌí¼ÓEXPORTÑ¡Ïʵ¼ÊÉÏÊÇ¿ÉÒÔÊä³öº¯ÊýµÄ¡£µ«ÊÇ£¬ÔÚV ......