Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ʵÏÖ¹ú¼Ê»¯

1. ÀûÓÃ×ÊÔ´Îļþ±£´æ¹ú¼Ê»¯Áбí
2.“Íâ½Ó³ÌÐò”--“Íâ½Ó³ÌÐò¹ÜÀíÆ÷”--“VB6 ×ÊÔ´±à¼­Æ÷”¾Í¿ÉÒԱ༭×ÊÔ´Îļþ
3.²¿·Ö´úÂë
  '´°Ìå¼ÓÔØ
Private Sub Form_Load()
Dim LocaleID As Long
  LocaleID = GetSystemDefaultLCID
  Select Case LocaleID
   'Ó¢ÎÄ ......

VB¸´ÖÆÎļþ¼ÐµÄ·½·¨(·ÇFSO)

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 ......

VB¾ÖÓòÍøÉ¨Ãè

   ×î½üÓÉÓÚ¹¤×÷ÏîĿԭÒò£¬ÁÙʱҪÇó×öÒ»¸ö¾ÖÓòÍøÉ¨ÃèÈí¼þ¡£¹¦ÄÜÒªÇó£¬É¨Ãè³öIPµØÖ·ÒÔ¼°¶ÔÓ¦µÄMACµØÖ·¡£¹¦ÄܱȽϼòµ¥¡£ÓÚÊǺܿì¾Í×öÁË¡£²ÉÓõĿª·¢¹¤¾ßÊÇ VB6.0
     ʹÓ÷½·¨ÊÇͨ¹ý·¢ËÍ ARP°ü£¬¹ã²¥ IPµØÖ·µÄ·½Ê½À´»ñµÃ ¶ÔÓ¦µÄ MACµØÖ·£¬SendARP£¨£©¡£
ÓÐһЩϸ½ÚҪעÒ⣬¾ÍÊÇ Êä³öMACµØÖ ......

vb ת C#

http://www.tangiblesoftwaresolutions.com/Product_Details/Instant_CSharp.html
http://www.tangiblesoftwaresolutions.com/?gclid=COeGzKKxo58CFQIupAodu2jvJQ
ÔÚÏß
VB.netºÍC#ÔÚÏß»¥×ª¹¤¾ß
http://bbs.51aspx.com/showtopic-2059.html
Convert VB.NET to C#
http://www.developerfusion.com/tools/convert/vb-to- ......

[VB]GDI+ IStream¡¢StdPicture¡¢Byte() »¥×ª

ºÜ¶àÄêǰ¾ÍÏë×öÒ»¸öÔ¶³Ì¿ØÖƵÄÈí¼þ£¬Ö»ÊÇÒ»Ö±ÒÔÀ´Í¼Æ¬µÄѹËõËÙ¶È×ÜÊÇÌáÉý²»ÉÏÈ¥£¬¶øÎÒÒ²²Î¿¼¹ýºÜ¶àÍøÉϵĹØÓÚͼƬѹËõµÄÀý×Ó£¬±ÈÈçzyl910µÄGIF_LZWѹËõ·½·¨£¬HuffmanѹËõ·½·¨£¬ÒÔÖÁµ½GDI+µÄÖ±½ÓÉú³ÉJPG¡¢PNGµÄ·½·¨£¨ÕâÖÖ·½·¨ÎÞÂÛ´ÓѹËõÂʺÍËÙ¶ÈÉ϶¼ÊÇ×î¼ÑµÄ£¬¿ÉϧÕâÖÖ·½·¨ÍøÉÏһֱûÕÒµ½Ö±½Ó±£´æÎªByte()µÄÀý×Ó£¬¼ûµÃ×î¶àµÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ