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 代码要先编译后运行
热点内容