|
发表于 2009-5-25 14:53:34
|
显示全部楼层
windows 下用vbs更容易。
On Error Resume Next
Set fs=CreateObject("scripting.filesystemobject")
Set disks=fs.drives
For Each disk In disks
if disk.isready And disk.DriveType=2 Then
drv=disk.DriveLetter
end if
Next
msg="最后一个本地硬盘分区是:"&drv&":"
MsgBox msg,0,"最后分区"
fs.CreateFolder(drv&":\ggg")
脚本将在win下最后一个分区建立ggg文件夹。
可以有效排除移动硬盘、光盘、网络盘、虚拟盘。
不过也有弊端,就是 如果此前人为在“磁盘管理”中打乱了磁盘排序,就有可能按照错乱的排序找出最后分区。
[ 本帖最后由 dos时代菜鸟 于 2009-5-25 17:05 编辑 ] |
|