如何获取当前驱动器的盘符名称? (在线,急)

leisurecloud 2002-12-29 10:08:00
如何获取当前驱动器的盘符名称?
...全文
42 点赞 收藏 9
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
liu584 2003-05-12

引用 microsoft scripting runtime
创建一个FSO对象
set Fs=createobject("scripting.filesystemobject")
set Ds=fs.drives
for each d in ds
print d.driveletter
next d
而且用d.drivetype可以判断类型
回复
sworddx 2003-04-27
left(app.path,2)
回复
东方小女人 2002-12-30
请大师们别介意,刚才说的有错了!
回复
lxcc 2002-12-30
chdir()
回复
东方小女人 2002-12-30
curdir(parameter),不指定parameter就是了!
回复
nik_Amis 2002-12-30
msgbox CurDir("C:")


ChDriver("D:")
回复
softlead 2002-12-30
'下面这个够详细了吧,运行通过,用于不是单纯的c d 盘,记得给分呀^&^Private Sub Form_Click()
Dim i, it_Name$
For i = 1 To Len(App.Path)
If Mid(App.Path, i, 1) = ":" Then
it_Name$ = Left(App.Path, i - 1)
MsgBox it_Name$
Exit Sub
End If
Next i
End Sub
回复
suntt 2002-12-30
不好意思,看错题了
left(app.path,3)
回复
suntt 2002-12-30
Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives" () As Long

Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告