分享
 
 
 

处理驱动器和文件夹

王朝other·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

使用 FileSystemObject (FSO) 对象模式,可以有计划地处理驱动器和文件夹,就像在 Windows 资源管理器中交互式地处理它们一样。可以复制和移动文件夹,获取有关驱动器和文件夹的信息,等等。

获取有关驱动器的信息

可以用 Drive 对象来获得有关各种驱动器的信息,这些驱动器是实物地或通过网络连接到系统上的。它的属性可以用来获得下面的信息内容:

驱动器的总容量,以字节为单位(TotalSize 属性)

驱动器的可用空间是多少,以字节为单位(AvailableSpace 或 FreeSpace 属性)

哪个号被赋给了该驱动器(DriveLetter 属性)

驱动器的类型是什么,如可移动的、固定的、网络的、CD-ROM 或 RAM 磁盘(DriveType 属性)

驱动器的序列号(SerialNumber 属性)

驱动器使用的文件系统类型,如 FAT、FAT32、NTFS 等等(FileSystem 属性)

驱动器是否可以使用(IsReady 属性)

共享和/或卷的名字(ShareName 和 VolumeName 属性)

驱动器的路径或根文件夹(Path 和 RootFolder 属性)

请考察示例代码,来领会如何在 FileSystemObject 中使用这些属性。

Drive 对象用法示例

使用 Drive 对象来收集有关驱动器的信息。在下面的代码中,没有对实际的 Drive 对象的引用;相反,使用 GetDrive 方法来获得现有 Drive 对象的引用(在这个例子中就是 drv)。

下面示例示范了如何在 VBScript 中使用 Drive 对象:

Sub ShowDriveInfo(drvPath)

Dim fso, drv, s

Set fso = CreateObject("Scripting.FileSystemObject")

Set drv = fso.GetDrive(fso.GetDriveName(drvPath))

s = "Drive " & UCase(drvPath) & " - "

s = s & drv.VolumeName & "<br>"

s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)

s = s & " Kb" & "<br>"

s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)

s = s & " Kb" & "<br>"

Response.Write s

End Sub

下面的代码说明在 JScript 中实现同样的功能:

function ShowDriveInfo1(drvPath)

{

var fso, drv, s ="";

fso = new ActiveXObject("Scripting.FileSystemObject");

drv = fso.GetDrive(fso.GetDriveName(drvPath));

s += "Drive " + drvPath.toUpperCase()+ " - ";

s += drv.VolumeName + "<br>";

s += "Total Space: " + drv.TotalSize / 1024;

s += " Kb" + "<br>";

s += "Free Space: " + drv.FreeSpace / 1024;

s += " Kb" + "<br>";

Response.Write(s);

}

处理文件夹

在下面的表中,描述了普通的文件夹任务和执行它们的方法。

任务 方法

创建文件夹。 FileSystemObject.CreateFolder

删除文件夹。 Folder.Delete 或 FileSystemObject.DeleteFolder

移动文件夹。 Folder.Move 或 FileSystemObject.MoveFolder

复制文件夹。 Folder.Copy 或 FileSystemObject.CopyFolder

检索文件夹的名字。 Folder.Name

如果文件夹在驱动器上存在,则找出它。 FileSystemObject.FolderExists

获得现有 Folder 对象的实例。 FileSystemObject.GetFolder

找出文件夹的父文件夹名。 FileSystemObject.GetParentFolderName

找出系统文件夹的路径。 FileSystemObject.GetSpecialFolder

请考察示例代码,来看看在 FileSystemObject 中使用了多少种这些的方法和属性。

下面的示例示范了如何在 VBScript 中使用 Folder 和 FileSystemObject 对象,来操作文件夹和获得有关它们的信息:

Sub ShowFolderInfo()

Dim fso, fldr, s

' 获得 FileSystemObject 的实例。

Set fso = CreateObject("Scripting.FileSystemObject")

' 获得 Drive 对象。

Set fldr = fso.GetFolder("c:")

' 打印父文件夹名字。

Response.Write "Parent folder name is: " & fldr & "<br>"

' 打印驱动器名字。

Response.Write "Contained on drive " & fldr.Drive & "<br>"

' 打印根文件名。

If fldr.IsRootFolder = True Then

Response.Write "This is the root folder." & ""<br>"<br>"

Else

Response.Write "This folder isn't a root folder." & "<br><br>"

End If

' 用 FileSystemObject 对象创建新的文件夹。

fso.CreateFolder ("C:\Bogus")

Response.Write "Created folder C:\Bogus" & "<br>"

' 打印文件夹的基本名字。

Response.Write "Basename = " & fso.GetBaseName("c:\bogus") & "<br>"

' 删除新创建的文件夹。

fso.DeleteFolder ("C:\Bogus")

Response.Write "Deleted folder C:\Bogus" & "<br>"

End Sub

下面的示例显示如何在 JScript 中使用 Folder 和 FileSystemObject 对象:

function ShowFolderInfo()

{

var fso, fldr, s = "";

// 获得 FileSystemObject 的实例。

fso = new ActiveXObject("Scripting.FileSystemObject");

// 获得 Drive 对象。

fldr = fso.GetFolder("c:");

// 打印父文件夹名。

Response.Write("Parent folder name is: " + fldr + "<br>");

// 打印驱动器名字。

Response.Write("Contained on drive " + fldr.Drive + "<br>");

// 打印根文件名。

if (fldr.IsRootFolder)

Response.Write("This is the root folder.");

else

Response.Write("This folder isn't a root folder.");

Response.Write("<br><br>");

// 用 FileSystemObject 对象创建新的文件夹。

fso.CreateFolder ("C:\\Bogus");

Response.Write("Created folder C:\\Bogus" + "<br>");

// 打印文件夹的基本名。

Response.Write("Basename = " + fso.GetBaseName("c:\\bogus") + "<br>");

// 删除新创建的文件夹。

fso.DeleteFolder ("C:\\Bogus");

Response.Write("Deleted folder C:\\Bogus" + "<br>");

}

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有