VBÖÐÔõô¶ÁÈ¡ÍøÂçÖÐijһ̨µçÄÔÉÏ .txtÎļþµÄÄÚÈÝ£¿
±ÈÈçÎÒҪȡµÃÍøÂçÖÐ192.168.1.1Õą̂µçÄÔD:\123\TEST.TXTÎļþµÄÄÚÈÝÔõô´¦Àí£¿
Ê×ÏȶԷ½±ØÐë¹²Ïí³öÀ´Äã²ÅÄÜ·ÃÎÊ¡£ È»ºóÄãÓÃÏÂÃæµÄÐÎʽӳÉä³ÉÍøÂçÇý¶¯Æ÷£¬¾Í¿ÉÒÔÓë±¾µØÎļþÒ»Ñù½øÐжÁÈ¡ÁË¡£ VB code: Shell "net use z: \\192.168.1.1\sharefolder" Óй²Ïí¾ÍÐС£ ²Î¿¼ \\10.1.13.206\c$\test\ [code=VB][/code] http://topic.csdn.net/t/20020630/09/838860.html »¹ÏëÎÊÏ ±ÈÈçÎÒ¶Áµ½test.txt µÚÒ»ÐеÄÊý¾ÝÓÐ LAJ0B100401098 LMJ13J95159889 0006F418B0B7 ÎÒÊý¾Ý¿âÖбítextÖÐÓÐÒ»ÐÐÓÐ LAJ0B100401098 1101JN00S10040000031S ÎÒÈçºÎÒÔÏàͬµÄLAJ0B100401098ΪÌõ¼þ½« LMJ13J95159889 0006F418B0B7´æÈëtest±íÖÐLAJ0B100401098ÕâÐУ¬ ÎÒÏëµÃµ½µÄ½á¹û¾ÍÊÇtestÖÐ LAJ0B100401098 1101JN00S10040000031S LMJ13J95159889 0006F418B0B7 ¹²ÏíÎļþ¼Ð²»Ì«°²È«,ÊÇ·ñ¿¼ÂÇÓÃftpÏÂÔØÎļþÔÙ¶ÁÈ¡ÄÚÈÝ ÓÃFTPÏÂÔØºóÔÙ¶ÁÈ¡µÄ»°´¦Àí»áÂýºÜ¶àÒýÓà ¹²ÏíÎļþ¼Ð²»Ì«°²È«,ÊÇ·ñ¿¼ÂÇÓÃftpÏÂÔØÎļþÔÙ¶ÁÈ¡ÄÚÈÝ ÎªÁËʹÓÃÒ»¸ö³ÌÐò »¹µÃ¿ª¸öftp? ʹÓÃÍøÂç·¾¶\\192.168.X.X\D$\123\TEST.TXT ¾ÍºÍ±¾µØÂ·¾¶Ò»Ñù´ò¿ªÎļþ£¬Ç°ÌáÊÇÄãÓÐȨÏÞ·ÃÎʸûúÆ÷ Ê×ÏÈ»ñÈ¡¶ÁȡȨÏÞ£¬Æä´Î¿ÉÒÔÓÃVBÖеÄÎı¾´¦ÀíÀ´²Ù×÷¡£
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡ û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡ À´½Óµã·Ö ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......