VB---API创建虚拟磁盘源码分享

宇智波·流氓

虚拟磁盘.rar (28.13 KB, 下载次数: 102)

2013-3-22 23:12 上传

点击文件名下载附件

您也许看到一些工具或者源代码创建虚拟驱动器，其实他们都是基于 subst.exe 通过Windows目录进行建立. 这些都依赖于外部执行文件.这就是我为
何不停的搜索不依赖于外部文件而能创建虚拟驱动器的原因，后来在MSDN上我找到了答案，完全可以使用纯粹 API 技术进行创建.而且可以在VB中很好
的应用。希望这个源代码对于有此需要的朋友能给于帮助

linkq

看看有没有用呢

linkq

看看有没有用呢

phuai007

看看有没有用呢

opq123

        感谢分享，很给力！~

a1316280786

99999999999999999999999

萧阳天

1. .版本 2
   
2. 
   
3. .子程序 磁盘_创建虚拟驱动器, 逻辑型, 公开, 用于定义、重定义或删除DOS的设备名，可将一个存在的文件夹或一个网络路径虚拟化为一个本地硬盘,成功返回真，失败返回假。
   
4. .参数 驱动器名称, 文本型, , 如M： 不能创建现有任何磁盘。
   
5. .参数 挂载路径, 文本型, , 需要现有磁盘来存储虚拟盘。
   
6. .局部变量 ret, 文本型
   
7. .局部变量 MountVD, 整数型
   
8. 
   
9. 驱动器名称 ＝ 选择 (取文本长度 (驱动器名称) ＝ 2, 驱动器名称, 驱动器名称 ＋ “:”)
   
10. .如果真 (磁盘_文件是否存在 (挂载路径) ＝ 假)
    
11.     信息框 (“指定驱动器路径错误或者无效的文件夹”, 0, )
    
12.     结束 ()
    
13. .如果真结束
    
14. ret ＝ 磁盘_取驱动器类型 (驱动器名称)
    
15. .如果 (ret ＝ “未知”)
    
16.     MountVD ＝ DefineDosDevice (0, 驱动器名称, 挂载路径)
    
17. .否则
    
18.     信息框 (“指定的驱动器无效,无法加载虚拟驱动器!”, 0, )
    
19.     结束 ()
    
20. .如果结束
    
21. 返回 (MountVD ≠ 0)
    

复制代码