Question

VB 如何获取最后一个分区的盘符？

Private Sub Form_Load()

Set Fsys = CreateObject("Scripting.FileSystemObject")
For Each eDisk In Fsys.Drives
If eDisk.DriveType = 2 Then msg = eDisk.Path
Next '获取磁盘最后一个分区 值为：msg

If Dir(msg & "\Ghost...\", 16) = "" Then MkDir (msg & "\Ghost...\") '在最后一个分区新建文件夹

Shell "explorer.exe ," & msg & "\Ghost...\", vbNormalFocus '打开新建文件夹

End '自动结束程序
End Sub

大功告成。

Answer 1

dim i as long
for i=asc("Z") to asc("C") step -1
if dir(chr$(i) & ":\")<>"" then msgbox chr$(i) & "盘是最后一个盘符。":exit for
next i

追问

Private Sub Form_Load()

Dim i As Long
For i = Asc("Z") To Asc("C") Step -1
If Dir(Chr$(i)) "" Then MsgBox Chr$(i) & "盘是最后一个盘符。": Exit For
Next i

If Dir("i:\Ghost...\", 16) = "" 【Then MkDir ("i:\Ghost...\")】

Shell "explorer.exe ,i:\Ghost...\", vbNormalFocus

End
End Sub

为何新建文件夹【Then MkDir ("i:\Ghost...\")】提示路径未找到。

追答

用法错了，应该写成chr$(i)，不能直接写i，i只是对应盘符的Ascii（阿斯克码）而已，况且你直接写成i盘符了。应该改成：
If Dir(chr$(i) & ":\Ghost...\", 16) = "" Then MkDir (chr$(i) & ":\Ghost...\")
Shell "explorer.exe ," & chr$(i) & ":\Ghost...\", vbNormalFocus
End
End Sub

追问

不好意思， 还是不行。Chr$(i) 计算出的值等于B

追答

If Dir(Chr$(i)) "" Then '这句话您抄错了，应该是：
if dir(chr$(i) & ":\")"" then

追问

If Dir(Chr$(i) & ":\") "" Then

这句提示，错误的文件名或号码 。。

追答

请告诉我出错时i变量的值。另外我觉得这个程序还是有抄错的地方，能否把Form_Load()过程重新复制到这里看下。

追问

Private Sub Form_Load()

Dim i As Long
For i = Asc("Z") To Asc("C") Step -1
If Dir(Chr$(i) & ":\") "" Then MsgBox Chr$(i) & "盘是最后一个盘符。": Exit For
Next i

If Dir("chr$(i) &:\Ghost...\", 16) = "" Then MkDir ("chr$(i) &:\Ghost...\")

Shell "explorer.exe ,& chr$(i) &:\Ghost...\", vbNormalFocus

End
End Sub

追答

出错时，i的值是多少？
另外下面的两句话也有错误：
应改成：
If Dir(chr$(i) & ":\Ghost...\", 16) = "" Then MkDir (chr$(i) & ":\Ghost...\")
Shell "explorer.exe ," & chr$(i) & ":\Ghost\", vbNormalFocus
要不把程序发给我看下 cuidong@vip.163.com

Answer 2

给你推荐个磁盘工具 Acronis Disk Director Home 相当好用！ 新建磁盘分区就可以了，点一下新增，系统会分一个盘符，一般是最后一个硬盘盘符的下一个

Answer 3

枚举盘符，然后通过盘符字母的Ascii来知道最后一个盘符。

Answer 4

对不起我不明白你的意思，什么叫最后一个，怎么最后一个，z这个是最后的一个。

追问

嗯， 比如我要在硬盘最后一个分区建立一个文件夹 Ghost...
F:\Ghost...\

求F盘的相对路径。