VB如何将一个文件存入我的文档

来源：百度知道 编辑：UC知道 时间：2024/06/04 15:44:02
比如
在我的文档里新建/打开一个 record.dat

Open "D:\My Documents\record.dat" For Random As #1

其他的电脑如果把文件放在我的文档文件夹下,就有可能是

Open "C:\Documents and Settings\Administrator\My Documents\record.dat" For Random As #1

不同的电脑我的文档的位置不一样啊~
请高手知道一下怎么用一个语句实现吧record.dat放入任意电脑的我的文档里.

open environ("USERPROFILE") & "\record.dat" For Random As #1

介绍两个API函数，这两个函数分别是SHGetSpecialFolderLocation和SHGetPathFromIDList，这就是我们用来获得各种路径的武器。

函数声明:
Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long

代码：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
SHGetSpecialFolderLocation 0, ＆H5＆, pidl
SHGetPathFromIDList pidl, sTmp
txtDocument.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)
Msgbox txtDocument
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

用api函数.你如果直接文档就找一下api函数.

也可以换个思路.当前程序文件夹把程序当在其中.
然后使用路经 Open app.path & "\路经" '这样即可