ÇëÎÊ£º ±ÈÈç˵ 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×Ô´øµÄTextBox¿Ø¼þ£¬ Option Explicit Private Type De '¿é¶¨Òå FSize(1 To 1024) As Byte End Type Private Sub Command1_Click() Dim F As De Dim N As Integer Open "C:\WINDOWS\N ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......