VB中怎样取得一台机器的系统目录?

yudu 2001-12-13 08:49:46
...全文
90 9 打赏 收藏 转发到动态 举报
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
DeityFox 2001-12-13
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim spath As String
Dim a As Long
spath = Space(256)
a = GetSystemDirectory(spath, 256) 'a为返回系统路径长度
spath = Left(spath, a)
spath = spath & "\yb.ini"
Text1.Text = spath
End Sub
yudu 2001-12-13
  • 打赏
  • 举报
回复
sFilePath后有好多空白去不掉,帮忙!!!
yudu 2001-12-13
  • 打赏
  • 举报
回复
fraser01(王晓栋),有什么办法吗?
yudu 2001-12-13
  • 打赏
  • 举报
回复
我用sFilePath = Trim(sFilePath) & "\" & "yb.ini"来取yb.ini文件,怎么sFilePath还是原来的目录,而没有加文件的名??
mingday 2001-12-13
  • 打赏
  • 举报
回复
看来不用我回答你也应该知道了!
fraser01 2001-12-13
  • 打赏
  • 举报
回复
GetSystemDirectory可以获得你的系统目录
Dim a As String
Dim b As String * 256
a = GetSystemDirectory(b, 256)
则b内表示的就是系统目录
condorhero 2001-12-13
  • 打赏
  • 举报
回复
Dim EnvString, Indx, Msg, PathLen ' 声明变量。
Indx = 1 ' 设置索引值的初值为 1。
Do
EnvString = Environ(Indx) ' 取得环境变量。
If Left(EnvString, 5) = "PATH=" Then ' 检查 PATH 项。
PathLen = Len(Environ("PATH")) ' 取得长度。
Msg = "PATH entry = " & Indx & " and length = " & PathLen
Exit Do
Else
Indx = Indx + 1 ' 不是 PATH 项,
End If ' 则跳过此项,继续检查下一项。
Loop Until EnvString = ""
If PathLen > 0 Then
MsgBox Msg ' 显示消息。
Else
MsgBox "No PATH environment variable exists."
End If

想找系统目录用windir(注意是小写)代替上面的PATH就行了
yudu 2001-12-13
  • 打赏
  • 举报
回复
能具体一点吗?我想得到的是系统目录,谢谢!
foolishtiger 2001-12-13
  • 打赏
  • 举报
回复
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
相关推荐

7,703

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告