求助！怎么设置VB的数据保存路径 - 编程论坛

#2

紫苑星苑2018-12-18 18:53

我没太搞懂你打开文件路径设置是什么意思,是指文件操作么..?
设置路径的方法有挺多的,比如变量定义和CommonDialog控件选定,不知道你具体要哪一种.
如果是变量定义的话推荐定义全局字符串型变量,然后...

程序代码：

'添加在声明部分
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

如果想玩高级一点的就用CommonDialog控件好了
关于CommonDialog的使用及添加方式可以自行百度
我具体说一下CommonDialog的路径数据获取方式
首先添加一个CommonDialog控件,为了方便命名为path_select

程序代码：

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编辑过]

#3

ZHRXJR2018-12-18 21:00

回复楼主 laohuvvv

1、四阶龙格-库塔法的用法比较多，根据用途不同，使用也不一样的，给你一个网页共参考：https://baike.
2、VB需要打开的文件，必须是你的硬盘中已经存在的文件，那么路径就是已经存在文件的路径了。
保存文件看你自己想保存在哪里，非常灵活的，当然也应该是保存在你的硬盘中了。
例如 D:\ABC\ 就是比较简单的路径，如果需要保存在程序目录中，应该是 App.Path 。
上面仅仅说的是路径，在打开或保存时，必须有文件名，例如 "D:\ABC\ABC.txt" 或 App.Path & "\ABC.txt"。

#4

laohuvvv2018-12-19 14:47

谢谢大神！保存路径已经解决。四阶龙格-库塔法已由课本解决。