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

Çë½ÌһЩ¹ØÓÚVBÎļþ²Ù×÷µÄÎÊÌâ - VB / »ù´¡Àà

ÎÒÏëÇë½Ì¸÷λ¸ßÊÖһЩÎÊÌ⣬¼ÙÉèÎÒÏëµ÷Óôò¿ª´°¿ÚÑ¡Ôñ×Ô¼ºÒªµÄÎļþ£¬È»ºó¸´ÖÆij¸öÎļþµ½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 ÔòÊÇÏëÒª´´½¨Ò»¸öʵÀýµÄ¶ÔÏ


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

ÎÒÏë°Ñ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
......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

vbÖÐunicodeÂë,ÈçºÎת»»³ÉÎı¾ - VB / »ù´¡Àà

ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ