VB打开文件问题

发布网友发布时间：2023-04-24 02:22

我来回答

共3个回答

热心网友时间：2023-10-10 22:30

是指你编写的程序的安装，还是系统

windows系统可以使用环境变量获取安装路径：
例如 SystemRoot=C:\WINXP
也可用API函数

热心网友时间：2023-10-10 22:31

可以用内置的VBA函数Environ
Environ("windir")就是系统路径，详细的请参考参考资料

参考资料：http://hi.baidu.com/fdfun/blog/item/6c5c6624e1e362054c088d88.html

热心网友时间：2023-10-10 22:31

Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Const MAX_LEN = 255

Private Sub Command1_Click()
Dim sTmp As String * MAX_LEN
Dim Length As Long
Dim mSystemDir As String

'获取系统 system32 目录
Length = GetSystemDirectory(sTmp, MAX_LEN)
mSystemDir = Left(sTmp, Length)
If Right(mSystemDir, 1) <> "\" Then
mSystemDir = mSystemDir & "\"
End If

'打开文件
Open mSystemDir & "123.txt" For Input As #1

End Sub