vb如何获取硬盘的所有盘符并用数组drv(i)表示

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Form_Click()

Dim DriveID As String

Dim StrDrive As String 255

Call GetLogicalDriveStrings(255, StrDrive)

Dim i As Integer

For i = 1 To 255 Step 4

DriveID = Mid(StrDrive, i, 3)

Print DriveID

If DriveID = Chr$(0) & Chr(0) & Chr(0) Then Exit For

Next i

End Sub

在其它电脑上能用的前提下：刷新一下后看看有没有打开控制面版,管理工具,计算机管理,磁盘管理,你会在里面找到一个和你的U盘一样大小的分区,且显示状态良好,在那点添加,然后添加你所要的就可以了,之后就会看到了。1、用其他移动设备试一试。如果都找不到就可能是你机器的U盘口故障，这样只能更换你机器的U盘接口。2、如果其他的U盘认了，你可以拿你的U盘换USB口试一下，前后的每个口都要试，如果其他USB接口认了应该是和你的U盘口电压输出有关。3、最近是否更新或安装过什么程序，有可能是这些更新或程序与你的U盘有冲突，包括杀毒软件的升级和系统包的升级都有可能，反向 *** 作或在安全模式下看认不认。4、在插上U盘的状态下，重新安装随盘附带的驱动，或从网上找到此款U盘最新的驱动来安装一下试试。5、换另一种 *** 作系统，不同的 *** 作系统对U盘的兼容不一样，XP下不能用的，有可能在2003、ME上可以用。6、U盘的不兼容现象很普遍，如果上面的都不行换一个U盘吧！天天开心！！！

Private Sub Command3_Click()

Dim fs, dc, d

Dim fso As New FileSystemObject

Dim p as Boolean

Set fs = CreateObject("ScriptingFilesystemObject")

Set dc = fsDrives

p=False

For Each d In dc

If dDriveType <> 1 Then

P=True

End If

If dDriveType = 1 Then

If fsoFolderExists(dDriveLetter & ":\帅得可爱POS备份") Then

FileCopy "sdkaposmdb", dDriveLetter & ":\帅得可爱POS备份\" & Format(Now(), "YYYYMMDDhhmmss") & "mdb"

MsgBox "备份成功"

End

Else

Set fso = CreateObject("ScriptingFileSystemObject")

fsoCreateFolder dDriveLetter & ":\帅得可爱POS备份"

FileCopy "sdkaposmdb", dDriveLetter & ":\帅得可爱POS备份\" & Format(Now(), "YYYYMMDDhhmmss") & "mdb"

MsgBox "备份成功"

End

End If

End If

Next

if p then MsgBox "请插入U盘"

End Sub

Set fso = ServerCreateObject("ScriptingFileSystemObject") 定义FSO对象

fsoCreateFolder(ServerMapPath(folder)) 得到路径

Set fout = fsoCreateTextFile(ServerMapPath(filepath)) 定义创建对象

foutWriteLine mb_code 创建文件夹。。

foutclose 关闭对象

下面是一些例子。。

提示:刚一开始看到有这样的功能，我也受骗了，以为真的可以通过浏览器在访问者的硬盘上创建文件，因为我开始试了一下真的可以，不信你把下面这段代码COPY到一个HTML文件当中再运行一下！

<script language="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

fsoDeleteFile("c:\\autoexecbat", true); //请注意啊！把autoexecbat改为你C盘中的其它文件名，你不改也可以！先把autoexecbat备份啊！

-->

</script>

是不是发现你C盘的Autoexecbat文件不见呢？呵呵

其实当那个文件运行时IE会提醒你当前使用的ActiveX控件不安全，询问你是否运行，但由于你和我一样迫切想试试究竟效果如何，因此你会毫不犹疑的按下 [确定] 其实这是使用了FileSystemObject来实现的，要了解更详细的用法与例子的话，点这里下载 JScript的中文说明文档 或者买本 <<深入学习:JavaScript开发与实例>> 也可以看看无忧脚本整理的例子，让大家学习学习

让我们先来看看有什么属性与函数可用，后面会对部分函数做些小例子

方法或者属性 描述

BuildPath()

生成一个文件路径

CopyFile() 复制文件

CopyFolder() 复制目录

CreateFolder() 创建新目录

CreateTextFile() 生成一个文件

DeleteFile() 删除一个文件

DeleteFolder() 删除一个目录

DriveExists() 检验盘符是否存在

Drives 返回盘符的集合

FileExists() 检验文件是否存在

FolderExists 检验一个目录是否存在

GetAbsolutePathName() 取得一个文件的绝对路径

GetBaseName() 取得文件名

GetDrive() 取得盘符名

GetDriveName() 取得盘符名

GetExtensionName() 取得文件的后缀

GetFile() 生成文件对象

GetFileName() 取得文件名

GetFolder() 取得目录对象

GetParentFolderName 取得文件或目录的父目录名

GetSpecialFolder() 取得特殊的目录名

GetTempName() 生成一个临时文件对象

MoveFile() 移动文件

MoveFolder() 移动目录

OpenTextFile()

打开一个文件流

实例说明

BuildPath(路径,文件名) //这个方法会对给定的路径加上文件，并自动加上分界符

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

var newpath = fsoBuildPath("c:\\tmp", "51jstxt"); //生成 c:\tmp\51jstxt的路径

alert(newpath);

-->

</SCRIPT>

CopyFile(源文件, 目标文件, 覆盖) //复制源文件到目标文件，当覆盖值为true时，如果目标文件存在会把文件覆盖

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

var newpath = fsoCopyFile("c:\\autoexecbat", "d:\\autoexecbak");

-->

</SCRIPT>

CopyFolder(对象目录,目标目录 ,覆盖) //复制对象目录到目标目录，当覆盖为true时，如果目标目录存在会把文件覆盖

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

fsoCopyFolder("c:\\WINDOWS\\Desktop", "d:\\"); //把C盘的Desktop目录复制到D盘的根目录

-->

</SCRIPT>

CreateFolder(目录名) //创建一个新的目录

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

var newFolderName = fsoCreateFolder("c:\\51JS"); //在C盘上创建一个51JS的目录

-->

</SCRIPT>

CreateTextFile(文件名, 覆盖) //创建一个新的文件，如果此文件已经存在，你需要把覆盖值定为true

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

var newFileObject = fsoCreateTextFile("c:\\autoexec51JSbat", true); //脚本将在C盘创建一个叫 autoexec51JSbat的文件

-->

</SCRIPT>

DeleteFile(文件名, 只读？) //删除一个文件，如果文件的属性是只读的话，你需要把只读值设为true

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject"); //为了安全我先把要删除的autoexecbat备份到你的D盘

var newpath = fsoCopyFile("c:\\autoexecbat", "d:\\autoexecbat"); //把C盘的autoexecbat文件删除掉

fsoDeleteFile("c:\\autoexecbat", true);

-->

</SCRIPT>

DeleteFolder(文件名, 只读？)//删除一个目录，如果目录的属性是只读的话，你需要把只读值设为true

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

fsoCopyFolder("c:\\WINDOWS\\Desktop", "d:\\"); //为了安全我先把你C盘的Desktop目录复制到你D盘的根目录

fsoDeleteFolder("c:\\WINDOWS\\Desktop", true); //把你的Desktop目录删除，但因为desktop是系统的东西，所以不能全部删除，但

-->

</SCRIPT>

DriveExists(盘符) //检查一个盘是否存在，如果存在就返会真，不存在就返回

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

hasDriveD = fsoDriveExists("d"); //检查系统是否有D盘存在

hasDriveZ = fsoDriveExists("z"); //检查系统是否有Z盘存在

if (hasDriveD) alert("你的系统内有一个D盘");

if (!hasDriveZ) alert("你的系统内没有Z盘");

-->

</SCRIPT>

FileExists(文件名) //检查一个文件是否存在，如果存在就返会真，不存在就返回

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

fileName = fsoFileExists("c:\\autoexecbat");

if (fileName) alert("你在C盘中有autoexecbat文件，按下确定后这个文件将被删除！"); //开个玩笑:)

-->

</SCRIPT>

FolderExists(目录名) //检查一个目录是否存在，如果存在就返会真，不存在就返回

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

folderName = fsoFolderExists("c:\\WINDOWS\\Fonts");

if (folderName) alert("按下确定后系统的字库将被删除！"); //开个玩笑:)

-->

</SCRIPT>

GetAbsolutePathName(文件对象) //返回文件对象在系统的绝对路径

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

pathName = fsoGetAbsolutePathName("c:\\autoexecbat");

alert(pathName);

-->

</SCRIPT>

GetBaseName(文件对象) //返回文件对象的文件名

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

baseName = fsoGetBaseName("c:\\autoexecbat"); //取得autoexecbat的文件名autoexec

alert(baseName);

-->

</SCRIPT>

GetExtensionName(文件对象) //文件的后缀

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

exName = fsoGetExtensionName("c:\\autoexecbat"); //取得autoexecbat后缀bat

alert(exName);

-->

</SCRIPT>

GetParentFolderName(文件对象) //取得父级的目录名

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

parentName = fsoGetParentFolderName("c:\\autoexecbat"); //取得autoexecbat的父级目录C盘

alert(parentName);

-->

</SCRIPT>

GetSpecialFolder(目录代码) //取得系统中一些特别的目录的路径，目录代码有3个分别是 0:安装Window的目录 1:系统文件目录 2:临时文件目录

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

tmpFolder = fsoGetSpecialFolder(2); //取得系统临时文件目录的路径 如我的是 C:\windows\temp

alert(tmpFolder);

-->

</SCRIPT>

GetTempName() //生成一个随机的临时文件对象，会以rad带头后面跟着些随机数，就好象一些软件在安装时会生成tmp

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

tmpName = fsoGetTempName(); //我在测试时就生成了radDB70Etmp

alert(tmpName);

-->

</SCRIPT>

MoveFile(源文件, 目标文件) //把源文件移到目标文件的位置

<SCRIPT LANGUAGE="JavaScript">

<!--

var fso = new ActiveXObject("ScriptingFileSystemObject");

var newpath = fsoMoveFile("c:\\autoexecbat", "d:\\autoexecbat"); //把C盘的autoexecbat文件移移动到D盘

-->

</SCRIPT>

1可以做文件管理系统 、可以使用 FSO 去打开别人的网站从而**源码 ，然后可以使用正则表达式制定相应规则解析这些源码从而达到小偷程序的效果 。

2仅仅依靠 FSO 完全可以实现静态化 。

（例如 >

以上就是关于vb如何获取硬盘的所有盘符并用数组drv(i)表示全部的内容，包括:vb如何获取硬盘的所有盘符并用数组drv(i)表示、郁闷了，VB写了个函数得到U盘盘符，但是最后输出不了盘符，不知道是什么原因，麻烦帮我看看代码、VB 获取U盘盘符，对其判定和 *** 作等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！