Open "ning.txt" For Input As #1 Close #1 ÈçºÎÅжϴò¿ªÎļþÊÇ·ñ³É¹¦£¬±ÈÈç˵£¬±ðµÄ³ÌÐòÕýÔÚ·ÃÎÊ£¬»òÕßÕâ¸öÎļþ²»´æÔÚ£¬ÔõôÅжϴò¿ªÎļþ½á¹û£¿ Èç¹û³ÌÐòÀïûÓÐÅжϵϰ£¬³ÌÐò»á³ö´í£¬ÎÒÏë×Ô¼ºÅжϣ¬Ó¦¸ÃÔõôд´úÂ룿 on error goto err Open "ning.txt" For Input As #1 Close #1
exit sub err: msgbox "sdfsdf" ×îºÃÓÃapi°ÉÅóÓÑ,createfileÓÃËüÀ´´ò¿ªÎļþ¿ÉÒÔÖ±½ÓÈ¡»ØlongÖµ-1Ϊʧ°Ü
Ö§³Ö£¬Ê¹ÓöÀÕ¼·½Ê½À´´ò¿ª£¬ÆäËûµÄ²Ù×÷ÔÙÈ¥´ò¿ª£¬¾Í»á±¨´í on error goto fileerr
fileerr: .... exit sub
È¥¿´Ò»ÏÂVBµÄ³ö´í´¦Àí
Èç¹û¹²Ïí´ò¿ª£¬ÊDz»»á³ö´íµÄ¡£Èç¹ûÊǶÀÕ¼»òÎļþ²»´æÔÚ£¬»á²úÉúÏàÓ¦µÄ´íÎ󣬿ÉÒÔÖ±½ÓÓà on error goto ErrNext À´ÔÚºóÃæ½øÐд¦Àí¡£ ÁíÒ»¸ö°ì·¨¡£¡£
VB code:
On Error Resume Next Err.Clear Open "ning.txt" For Input As #1 If Err Then Close #1 End If
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......