ÇëÎÊ£º ±ÈÈç˵ Open App.Path & "1.txt" For Output As #1 ' ´ò¿ªÊä³öÎļþ¡£ print #1, "This is a test" print #1, "test is another test" Close #1 MsgBox "success"
¾ÍÊÇдÈë2ÐÐÊý¾Ý
±ÈÈç˵ÎÒÔٴδ¥·¢ÉÏÃæÕâ¸ö·½·¨£¬µÚ¶þ´ÎдµÄÊý¾ÝÊÇ Open App.Path & "1.txt" For Output As #1 ' ´ò¿ªÊä³öÎļþ¡£ print #1, "This is a test" 'print #1, "test is another test" Close #1 MsgBox "success"
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......