GBKEE

¦^´_ 1# joey0415
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim I As Integer
   
4.     If Dir("d:\test.txt") <> "" Then Kill "d:\test.txt"
   
5.     For I = 1 To 10
   
6.         Close #1
   
7.         Open "d:\test.txt" For Append As #1
   
8.         Print #1, "¤é´Á ²Ä" & I; "¦¸"
   
9.         Close #1
   
10.     Next
    
11. End Sub

½Æ»s¥N½X