投稿日 | : 2003/04/02(Wed) 14:43 |
投稿者 | : zkei |
Eメール | : |
URL | : |
タイトル | : ファイル操作について問題 |
いつも お世話になっております。
設定.txtがどのフォルダーの下に配置しますか?
Private Sub Form_Load()
Dim WindowLeft As Integer
Dim WindowTop As Integer
Dim TextNaiyou As String
Dim N As String
N = Dir("設定.txt")
If N = "" Then Exit Sub
Open "設定.txt" For Input As #1
Input #1, WindowLeft, WindowTop
Input #1, TextNaiyou
Close #1
Form1.Left = WindowLeft
Form1.Top = WindowTop
Text1.Text = TextNaiyou
End Sub
Private Sub Form_Unload(Cancel As Integer)
WindowLeft = Form1.Left
WindowTop = Form1.Top
TextNaiyou = Text1.Text
Open "設定.txt" For Output As #1
Write #1, WindowLeft, WindowTop
Write #1, TextNaiyou
Close #1
End Sub