动态网站制作指南 [  QQ表情  ]
[ 投票调查 ]
[ 企业邮箱 ]
[ 网站空间 ]
网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
ASP源码 | .Net源码 | PHP源码 | JSP源码 | JAVA源码 | CGI源码 | VB源码 | C++源码 | Delphi源码 | PB源码 | VF源码 | 汇编 | 服务器
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Visual Basic教程
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
文章搜索服务
邮件订阅
输入你的邮件地址,
你将不会错过任何关于:
[ Visual Basic教程 ]的信息

本月文章推荐
.VBCOM基础讲座之可重用性.
.在VB编程中采用Windows脚本控件实.
.怎样关闭一个正在运行的程序.
.VBCOM基础讲座之类的测试.
.VB与MS-Draw开发通用作图软件.
.用VB6.0编写磁盘格式化程序.
.VB数据库多字段记录的录入.
.计算两个日期间的工作日.
.VisualBasic工程管理一.
.在系统菜单上添加自定义菜单项.
.在VB中用API实现多媒体.
.用VB编写调色板.
.用VB自制屏幕保护程序.
.DirectX7.0使用心得(1).
.调用API函数设计ABOUT窗口.
.把符串中的一子串替换为另一子串.
.让窗体居中.
.VisualBasicCOM基础讲座之简介.
.VisualBasic变量、常数和数据类型.
.VB中不规则图形热点的实现.

检测磁盘类型的信息

发表日期:2006-2-27 |


磁盘类型的检测是很有意义的。比如,安装程序要懂得用户所指定的磁盘是否为硬盘,不是则予以提示;又比如,要自动播放光盘中的音频文件或影视文件,首先得判断光驱的驱动器号才得以实现。那么,如何检测磁盘的类型呢?
Windows的GetDriveType函数就是为获取磁盘类型而准备的,利用它可以轻而易举地得到我们所需的磁盘类型信息。以下以一个简单的例子展示获取压缩盘以外的常规磁盘的类型这一有用的技术:

OptionExplicit

'申明API函数
PrivateDeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLong

PrivateSubForm_Load()

'声明变量
DimDrvNumAsSingle
DimdrvNameAsString
DimDrvTypeAsInteger
DimiAsInteger

Me.AutoRedraw=True
Drive1.Visible=False

'获取所有常规磁盘信息——
DrvNum=Asc("a")-1
Fori=0ToDrive1.ListCount
DrvNum=DrvNum 1
drvName=Chr(DrvNum) ":\"
DrvType=GetDriveType(drvName)
SelectCaseGetDriveType(drvName)
Case0
Me.Print"不明" "盘符为:" Trim(UCase(Chr(DrvNum)))
Case2
Me.Print"软驱" "盘符为:" Trim(UCase(Chr(DrvNum)))
Case3
Me.Print"硬盘" "盘符为:" Trim(UCase(Chr(DrvNum)))
Case4
Me.Print"网络盘" "盘符为:" Trim(UCase(Chr(DrvNum)))
Case5
Me.Print"光驱" "盘符为:" Trim(UCase(Chr(DrvNum)))
Case6
Me.Print"RamDisk" "盘符为:" Trim(UCase(Chr(DrvNum)))
EndSelect
Nexti

EndSub->

上一篇:用Shell语句调出控制面板 人气:2713
下一篇:在VB程序中通过回收站删除文件 人气:3508
浏览全部Visual Basic的内容 Dreamweaver插件下载 常用网页广告代码全集
  最新网站源码 最新软件下载
2008-12-2 OpenPNE中文 v2.12.5 for win 中
2008-12-2 谷秋精品课程软件课程版 v2.3
2008-12-2 晴天电影系统(带一键迅雷/自定义
2008-12-2 QQip138闪字程序
2008-12-2 SmartWeb企业智能建站系统 v1.0.2
2008-12-2 梦想不死个人主页 v2009
2008-12-2 开良ASP小偷程序生成器 v1.1
2008-12-2 toolxp.cnalexa世界排名查询 php
2008-12-2 腾讯留言板 v1.3
2008-11-29 Tencent Traveler 4.4
2008-11-29 龙卷风网络收音机 v3.0.0.0
2008-11-29 Intel Chipset Software Install
2008-11-29 TweakVI 1.0 Build 1100
2008-11-29 Opera 9.62 Build 10469
2008-11-29 MPlayer WW编译版 SVN-r28044(20
2008-11-29 NetTools网络工具v1.0.0破解版
2008-11-29 3DGallery三维体验1.1破解版
2008-11-29 SecretBook保密本v1.0破解版
  发表评论
姓 名: 验证码:
内 容:
站长工具:网站收录查询 | Google PR查询 | ALEXA排名查询 | CSS在线编辑器 | OPEN参数生成器 | 弹出式窗口代码产生器 | 密码登录生成器 | 在线按钮生成器 | Meta标签生成器 | 多色彩特效字代码生成器 | 网页代码调试器 | 在线FTP登陆 | Flash取色器 | 配色代码对照表 | 配色辞典 | CSS生成器 | 广告代码 | 框架网页代码生成器 | js/vbs加密 | md5加密 | 进制转换 | UTF-8 转换工具 | 在线调色板 | Html转换js | Html转换asp | Html转换php | Html转换perl
实用工具:汉字翻译拼音 | 拼音字典 | 符号对照表 | 个税计算 | 实时汇率查询换算 | 经典小工具 | 汉字简繁转换 | 普通单位换算 | 公制单位换算 | 生辰老黄历 | 国内电话区号 | 国家代码与域名缩写 | 文字加密解密 | 元素周期表 | 健康查询 | 世界时间 | 万年历 | 二十四节气 | 汉字横竖排版 | 手机号码查询 | 计算器 | ip搜索
业务联系 | 广告刊登 | 频道合作 | 投稿荐稿 | 联系方式 | 加入收藏 | RSS订阅
Copyright © 2000-2009 www.knowsky.com All rights reserved | 沪ICP备05001343号
ホームページ制作 不動産検索システム 求人情報
防水工事·改修工事 フットサル大会 探偵
SEO対策 中国語教室 ホームページ作成