| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 951 人关注过本帖
标题:[求助]如何取系统文件夹的路径呀?
只看楼主 加入收藏
ggyy66
Rank: 1
等 级:新手上路
帖 子:427
专家分:0
注 册:2007-8-14
结帖率:86.25%
收藏
 问题点数:0 回复次数:7 
[求助]如何取系统文件夹的路径呀?
如何取系统文件夹的路径呀?
比如 windowsxp的 系统文件夹路径是 c:\windows
但是不一定的,比如用户系统装在D盘,或者不是windows,有可能是别的名称,我在程序中如何取呢?
我现在知道一种办法,用Environ("windir"),不过这个方法是依附于系统的环境变量的,如果用户修改了自已机器的环境变量,用这个函数就取不到了,请大家指教,谢谢.
搜索更多相关主题的帖子: 系统文件 路径 windows 环境变量 
2007-09-05 14:43
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
%SystemRoot% 呢? 有人改这个?不知道会不会出错=。=

快上课了……
2007-09-05 16:00
ggyy66
Rank: 1
等 级:新手上路
帖 子:427
专家分:0
注 册:2007-8-14
收藏
得分:0 
找到了,分享一下吧。

Option Explicit
Dim ret As String
Dim jj As String
Dim winsys As String
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Const max_path = 260
'Private Const max_path1 = 261


Private Sub Command1_Click()
Dim ssave As String
ssave = Space(255)
ret = GetSystemDirectory(ssave, 255)
jj = Len(Trim(ssave))
winsys = Trim(Mid$(ssave, 1, jj - 1))
MsgBox winsys
End Sub

Private Sub Command2_Click()
Dim sysdir As String
Dim chrlen As Long
Dim windir As String

'sysdir变量要给足了空格
sysdir = Space(max_path)
chrlen = GetSystemDirectory(sysdir, max_path) '将系统路径保存在字符串sysdir中,字符串最大长度为260


If chrlen > max_path Then chrlen = GetSystemDirectory(sysdir, chrlen)

'chrlen是返回字符串的实际长度
sysdir = Left(sysdir, chrlen)

'-------------------------------------------------
'取windows路径
windir = Space(max_path)
chrlen = GetWindowsDirectory(windir, max_path)
If chrlen > max_path Then chrlen = GetWindowsDirectory(windir, chrlen)
windir = Left(windir, chrlen)
MsgBox "system的路径为: " & sysdir
MsgBox "windows的路径为: " & windir
MsgBox "当前系统的盘符为:" & Left(windir, 1)
End Sub

2007-09-05 16:12
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
fso也有相关方法(getspecialfolder?)
2007-09-05 18:01
coachard
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:1251
专家分:0
注 册:2007-8-12
收藏
得分:0 
还有一个API是SH***********(不大记得了)也可以实现!

偶学编程,也许本身就是一个错。。。
2007-09-05 18:04
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 

sh什么fileoperation的……那个API功能太强用得太繁……

2007-09-05 18:08
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
SHGetFilelnfo?这个网上没有什么说明……

快上课了……
2007-09-05 18:35
coachard
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:1251
专家分:0
注 册:2007-8-12
收藏
得分:0 

就是7楼所说的这个,挺好用的。。。


偶学编程,也许本身就是一个错。。。
2007-09-05 18:57
快速回复:[求助]如何取系统文件夹的路径呀?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035855 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved