投稿日 | : 2005/02/22(Tue) 22:44 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : 簡単なサンプル |
Private Sub Command1_Click()
Dim i As Long
Dim intFileNo As Integer
Dim strCobTxt As String
For i = 0 To Combo1.ListCount - 1
If InStr(strCobTxt, Combo1.List(i) & vbCrLf) = 0 Then
strCobTxt = strCobTxt & Combo1.List(i) & vbCrLf
End If
Next i
intFileNo = FreeFile
Open "c:\Cobtest.txt" For Output As #intFileNo
Print #intFileNo, strCobTxt
Close #intFileNo
End Sub