Çë½ÌһЩ¹ØÓÚVBÎļþ²Ù×÷µÄÎÊÌâ - VB / »ù´¡Àà
ÎÒÏëÇë½Ì¸÷λ¸ßÊÖһЩÎÊÌ⣬¼ÙÉèÎÒÏëµ÷Óôò¿ª´°¿ÚÑ¡Ôñ×Ô¼ºÒªµÄÎļþ£¬È»ºó¸´ÖÆÄ³¸öÎļþµ½C:\aaaÎļþĿ¼Ï£¬²¢ÇÒ¸ÄÃû¸ÃÔõÃ´Ð´ÄØ£¿×ÊÔ´ÀïÕÒÁ˺ö࣬µ«ÊǺÃÏñûÓÐÕÒµ½ÀàËÆµÄ
°ï¶¥£¡ÒýÓà °ï¶¥£¡ лл~~ ʹÓÃCommonDialog¿Ø¼þʵÏÖÑ¡ÔñÎļþµÄ¶Ô»°¿ò¡£ CommonDialog1.ShowOpen FileCopy CommonDialog1.FileNmae, "c:\" & CommonDialog1.FileTitle ¿ÉÒÔʹÓÃÎļþϵͳ¶ÔÏó£ºFSO File System Object FSO ¶ÔÏóÄ£Ðͱà³Ì FSO ¶ÔÏóÄ£Ðͱà³Ì°üÀ¨ÈýÏîÖ÷ÒªÈÎÎñ£º ʹÓÃCreateObject ·½·¨£¬»ò½«Ò»¸ö±äÁ¿ÉùÃ÷Ϊ FileSystemObject ¶ÔÏóÀàÐÍÀ´´´½¨Ò»¸ö FileSystemObject ¶ÔÏó¡£ ¶Ôд´½¨µÄ¶ÔÏóʹÓÃÊʵ±µÄ·½·¨¡£ ·ÃÎʸöÔÏóµÄÊôÐÔ¡£ FSO ¶ÔÏóÄ£ÐͰüº¬ÔÚÒ»¸ö³ÆÎª Scripting µÄÀàÐÍ¿âÖУ¬´ËÀàÐÍ¿âλÓÚ Scrrun.Dll ÎļþÖС£Èç¹û»¹Ã»ÓÐÒýÓôËÎļþ£¬Çë´Ó¡°ÊôÐÔ¡±²Ëµ¥µÄ¡°ÒýÓá±¶Ô»°¿òÑ¡Ôñ¡°Microsoft Scripting Runtime¡±ÏȻºó¾Í¿ÉÒÔʹÓá°¶ÔÏóä¯ÀÀÆ÷¡±À´²é¿´Æä¶ÔÏó¡¢¼¯ºÏ¡¢ÊôÐÔ¡¢·½·¨¡¢Ê¼þÒÔ¼°ËüµÄ³£Êý¡£ ´´½¨ FileSystemObject ¶ÔÏó µÚÒ»²½ÊÇ´´½¨Ò»¸ö FileSystemObject ¶ÔÏóÒÔ±ã½øÐд¦Àí¡£¿ÉÒÔͨ¹ýÈçÏÂÁ½ÖÖ·½·¨Íê³É£º ½«Ò»¸ö±äÁ¿ÉùÃ÷Ϊ FileSystemObject ¶ÔÏóÀàÐÍ£º Dim fso As New FileSystemObject ʹÓà CreateObject ·½·¨À´´´½¨Ò»¸ö FileSystemObject ¶ÔÏó£º Set fso = CreateObject("Scripting.FileSystemObject") ÔÚÉÏÃæµÄÓï·¨ÖУ¬ Scripting ÊÇÀàÐÍ¿âµÄÃû³Æ£¬¶ø FileSystemObject ÔòÊÇÏëÒª´´½¨Ò»¸öʵÀýµÄ¶ÔÏ
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o=& ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xm ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾ ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý: +CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......