7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
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:")
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
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)
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
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
