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

VBÖÐfilesystemobject¶ÔÏóʵÏÖÎļþ´æÈ¡·½·¨

×î¼òµ¥µÄ·½·¨ÊÇʹÓÃfilesystemobject¶ÔÏó¡£¶øËü²¢·ÇVBÄÚÖöÔÏó£¬
ÐèÒýÓòſÉÒÔʹÓá£
1£®filesystemObject¶ÔÏóÒýÓÃ
“¹¤³Ì/ÒýÓÃ/microsoft scription Runtime”
 ÔÚ¶ÔÏóä¯ÀÀÆ÷´°¿ÚÖÐÑ¡“scripting”Ä£¿é£¬¿´µ½ÔöÁËÐí¶à¶ÔÏó£¬
drive filesystemobject    textstream    fileµÈ
ÆäÖÐfilesystemobjectÊÇÕâЩ¶ÔÏóµÄ¹Ø¼ü£¬ÏëҪʹÓÃÆäËü¶ÔÏó£¬
¶¼±ØÐëÏȽ¨Á¢filesystemobject¶ÔÏó¡£
£²£®Îļþ´æÈ¡
 dim fs  as  new  filesystemobject  ½¨Á¢filesystemobject¶ÔÏó
 dim  txtf  as  textstream          ¶¨ÒåÁËÒ»¸ötextstream¶ÔÏó±äÁ¿
textstrem¶ÔÏóÓëÎļþµÄ¶ÁдËùÓÐÎļþ¶¼±ØÐëÏÈ´ò¿ª£¬²ÅÄܶÁд£¬
filesystemobjet¶ÔÏóËùÌṩµÄ´ò¿ªÎļþµÄ·½·¨ÓÐÁ½ÖÖ£º
opentextfile  ´ò¿ªÎļþ
createtextfile  ½¨Á¢Îļþ
 Í¨¹ýfilesystemobjectËù´ò¿ªµÄÎļþÊÇÒ»¸öTextStream¶ÔÏó£¬
¶øÍ¨¹ýtextstream¶ÔÏóµÄ¸÷ÖÖ·½·¨ºÍÊôÐÔ£¬¾Í¿ÉÒÔ½øÒ»²½¶ÁдÎļþ¡£
 1£©opentextfile  ·½·¨£º´ò¿ªÎļþ
set  textstream¶ÔÏóÃû=filesystemobjectÃû.opentextfile(ÎļþÃû£¬IOģʽ£¬ÊÇ·ñ×Ô¶¯½¨Á¢Îļþ£©
ÎļþÃû£º½¨ÒéдÈëÍêÕû·¾¶µÄÎļþÃû¡£
IOģʽ£º¿ÉÉèÖóÉforreading(=1)¡¢forwrting(=2)»òforappending(=8)¡£       
Èç¹ûÉèÖóÉforreading£¬Ôò´ò¿ªµÄÎļþÊÇÖ»¶ÁµÄ£»
Èç¹ûÉèÖóÉforwriting£¬Ôò´ò¿ªµÄÎļþÊÇ¿ÉдµÄ£¬¶øÔ­À´Îļþ                     µÄÄÚÈݻᱻÇå³ý£»
Èç¹ûÉèÖóÉforappending£¬Ôò´ò¿ªµÄÎļþÊÇ¿ÉдµÄ£¬µ«Ô­Îļþ             µÄÄÚÈݲ»»á±»Çå³ý£¬Êý¾Ý»á´ÓÎļþ             µÄ×îºóÃæ¿ªÊ¼Ð´Èë¡£
²ÎÊýȱʡ£º   ±íʾforreading Ö»¶Á¡£
ÊÇ·ñ×Ô¶¯½¨Á¢Îļþ£º¿ÉÉèÖóÉtrue»òfalse¡£
ÉèÖÃΪ£ºtrue     Ôòµ±Îļþ²»´æÔÚʱ£¬»á×Ô¶¯                      


Ïà¹ØÎĵµ£º

VBÖв¥·ÅWAVÎļþ

http://zhidao.baidu.com/question/33440250.html
ÔÚÄ£¿éÖÐÊäÈëÒÔÏ´úÂë
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1 ......

VB¾ÖÓòÍøÉ¨Ãè

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

vb ±£´æÍ¼Æ¬µ½Êý¾Ý¿â

'¶ÁÊý¾Ýµ½¶þ½øÖÆ×Ö¶Î
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 ......

vb ±£´æÍ¼Æ¬µ½Êý¾Ý¿â

'¶ÁÊý¾Ýµ½¶þ½øÖÆ×Ö¶Î
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 ......

ÓÃVB°Ñasp·â×°³Édll


×î¼òµ¥ÓÃVB°Ñasp·â×°³ÉdllµÄÈëÃųÌÐò
µ±IIS±»ÇëÇóÖ´ÐÐÒ»¸öASP³ÌÐò,ËüÊ×ÏÈ»áÔÚASPÎļþÖÐÕÒµ½<%%>±êǩ֮¼äµÄ´úÂë,²¢ÇÒÖ´ÐÐËü(Ò²¿ÉÒÔÊÇ<scri ptrunat=server></script....>Ö®¼äµÄ´úÂë).Èç¹ûÕâ¸öASP³ÌÐòÔÚÏÈǰ±»µ÷Óùý,ÄÇôËü¾Í»áÓÃÄÚ´æÖеıàÒë¹ýµÄ³ÌÐòÀ´ÏòÓû§·µ»ØHTML´úÂë,Èç¹ûûÓÐ,ÄÇôËü¾ÍÖØÐ±àÒë.Õ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ