请教关于打开畸形文件夹的问题

wowuyanle

前几天在论坛上看到一篇帖子，是关于如何打开畸形文件夹的方法.
http://bbs.wuyou.net/forum.php?mod=viewthread&tid=146002&highlight=%BB%FB%D0%CE%CE%C4%BC%FE%BC%D0
但是在XP下，用这个VBS不能打开U盘内的畸形文件夹

     On Error Resume Next
     Set objShell = CreateObject("Wscript.Shell")
     objShell.Run("..:\......\")

如果把“..”改成U盘的对应盘符就可以正常打开，那怎样打开可移动设备里的畸形文件夹呢？
知道的帮帮忙，我对VBS一点都不懂，我只有一个自己改过的批处理能打开U盘内的畸形文件夹.有兴趣的看一下，感觉打开的好慢

     @echo off
     for %%i in (N M L K J I H G F) do (
     for /f "delims=" %%j in ('fsutil fsinfo drivetype %%i:^|find/i "可移动驱动器"') do (
     set "b=%%j"
     ))
     set "lis=%b:~0,1%"
     vol %lis%:>nul 2>nul
     start %lis%:\......\
     exit

23070205

为什么一定要vbs，bat不是也ok吗

renchmin

使用最新版本的diskgen，什么文件夹也打开了。

zhouguanjie

自己用命令不就可以了吗！

wowuyanle

bat在一定条件下也不能打开,比如被沙盘保护的盘符,但VBS可以。打开一个文件夹运行Disk genius,感觉小题大做了。直接用命令打开也不方面,还要打命令上去。

[ 本帖最后由 wowuyanle 于 2010-4-28 19:01 编辑 ]

slore

Wscript.Echo GetDriveList()

Function GetDriveList() '自定义函数
    Dim ObjFSO,d,dc,s,n
    Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    Set dc = ObjFSO.drives '获得驱动器集合
    For Each d In dc
        s = s & d.driveLetter & "--" & d.DriveType & vbCrLf
    Next
    getdrivelist = s
End Function

注意DriverType

wowuyanle

谢谢六楼的回复,但我还是有些看不懂,麻烦解释下