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

2001-12-13 08:49:46 147 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SAP 更改物料基本计量单位创建订单单位后，新创建的采购申请、采购合同、采购信息记录均会使用新的订单单位阅读详情

...全文

使用 FastAPI 构建高性能异步接口服务（含完整项目示例） python复制编辑python复制编辑= 1: raise HTTPException(status_code=404, detail="用户不存在")特性FastAPI 支持情况类型注解✅自动文档✅异步支持✅ORM 集成✅（推荐 SQLModel）性能✅ 极高FastAPI 是你构建现代化、高性能 Python Web 应用的首选框架！阅读详情

yudu

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

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

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

相关推荐