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

yudu 2001-12-13 08:49:46
...全文
89 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
相关推荐

Word 是一个的办公软件,然而很多人只是把它当做了打字软件来用,90%的用户只用到了WORD的10%!这些未用到的功能的开发很多是和VBA分不开的。

   VBA的特点是将VB语言与应用对象模型结合起来,处理各种应用需求。WORD VBA则是将VB应用于Word对象模型,或者说是用VB语言来操控这些Word对象模型,以达到各种应用的要求。所以,如果你想通过VBA控制Word,必须同时熟悉VB语言和Word对象模型。

   系统讲解关于WordVBA的使用方法。从基础讲解,例举大量的VBA实例。加强对word的开发应用。

  1. 讲解关于word vba的基础知识,文档的控制。

  2. 讲解word表格的批理操作

  3. 关于图形图片的操控

  4. 邮件合并的批理管理操作。

发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-12-13 08:49
社区公告
暂无公告