求助!怎么设置VB的数据保存路径
想编一个程序卡壳了,一是四阶龙格-库塔法不知道怎么用,而是VB的打开文件路径怎么设置?保存路径怎么设置?求大神帮帮忙!
'添加在声明部分 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编辑过]