vb6讀寫文件夾
發布時間: 2023-03-20 22:45:10
A. VB6文件讀寫
PrivateSubcommand1_click()
IfDir(App.Path&"int1.txt")=""Then
MkDirApp.Path&"int"
End
Else
OpenApp.Path&"int1.txt"ForInputAs源拆腔#1
LineInput#1,textline
Close#1
EndIf
Iftextline="OK"ThenForm2.Show
EndSub
要求御臘窗體1上要有一個雹衫按鈕 並創建窗體2 代碼要先編譯後運行
熱點內容
