无忧启动论坛

标题: 请教关于打开畸形文件夹的问题 [打印本页]

作者: wowuyanle 时间: 2010-4-27 20:22
标题: 请教关于打开畸形文件夹的问题
前几天在论坛上看到一篇帖子，是关于如何打开畸形文件夹的方法.
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 时间: 2010-4-27 22:11
为什么一定要vbs，bat不是也ok吗

作者: renchmin 时间: 2010-4-27 22:40
使用最新版本的diskgen，什么文件夹也打开了。

作者: zhouguanjie 时间: 2010-4-28 11:55
自己用命令不就可以了吗！

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

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

作者: slore 时间: 2010-4-28 20:04
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 时间: 2010-4-29 20:24
谢谢六楼的回复,但我还是有些看不懂,麻烦解释下

欢迎光临无忧启动论坛 (http://bbs.c3.wuyou.net/)