求助!怎么设置VB的数据保存路径
想编一个程序卡壳了,一是四阶龙格-库塔法不知道怎么用,而是VB的打开文件路径怎么设置?保存路径怎么设置?求大神帮帮忙!
2018-12-18 16:16
程序代码:
'添加在声明部分
Public pathi$
'添加在其他地方的...
Private Sub Form_Load()
pathi = App.Path & "\" '得到应用程序所在路径
End Sub
'比如你想要在程序所在路径下保存
Private Sub savedata_Click()
Dim datas$
datas = ... '获取你想保存的数据
Open (pathi & "data.txt") For Output As #1 '打开对应路径下文件(若没有对应文件将会自动生成该文件)
Print #1,datas '写入数据
Close #1
End Sub
程序代码:
Private Sub savedata_Click()
On Error GoTo err_slove
dim patho$,place%
path_select.FileName = pathi '设定初始路径
path_select.ShowOpen
patho = path_select.FileName '获取选择路径(获取到的路径是对话框最后选定的路径(包括文件名))
If (dir(patho) <> "") Then '如果路径/文件存在
If ((GetAttr(patho)) <> vbDirectory) Then '如果不为文件夹
place = Instrrev(patho,"\")
patho = Left(patho,Len(patho) - place) '获取文件夹路径
End If
End If
'然后是保存部分,参考上文
Exit Sub
err_slove:
Call Msgbox("出现了问题..." & Chr(10) & "错误编号:" & Err.Number & "错误描述:" & Err.Description,48,"Alert")
End Sub
[此贴子已经被作者于2018-12-18 19:32编辑过]

2018-12-18 18:53

2018-12-18 21:00
2018-12-19 14:47