国语自产精品视频在线看：您身边最放心的安全下载站！ 最新软件|热门排行|软件分类|软件专题|厂商大全

您的位置：首页 → 网络编程 → Asp编程 → ASP实例教程：FileSystemObject对象

ASP实例教程：FileSystemObject对象

我要评论 2009/06/14 14:47:22 来源：国语自产精品视频在线看编辑：佚名 [大中小] 评论:0 点击:659次

FileSystemObject 对象

指定的文件存在吗？

本例演【běn lì yǎn】示如何💺首先创⛷建FileSystemObject对象，然后使【rán hòu shǐ】🏣用【yòng】FileExists方法来探测某文件是【wén jiàn shì】⛴否存在。

本示例代码如下：

以下为🧢引用的内容【nèi róng】：

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists("c:\windows\cursors\xxx.cur"))=true Then
Response.Write("文件【wén jiàn】📹 c:\windows\cursors\xxx.cur 存在【cún zài】。")
Else
Response.Write("文件【wén jiàn】📹 c:\windows\cursors\xxx.cur 不存在【cún zài】🕠。")
End If
set fs=nothing
%>
</body>
</html>

本实例运行结果如下：

文件 c:\windows\cursors\xxx.cur 不存在【bú cún zài】👆。

指定的文件夹存在吗？

本例演【běn lì yǎn】🦎示如何🏘使用FolderExists方法探【fāng fǎ tàn】测某文【cè mǒu wén】🌘件夹是否存在。

本示例代码如下：

以下为【yǐ xià wéi】👯引用的内容：

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("c:\temp") = true Then
Response.Write("文件夹【wén jiàn jiá】🕧 c:\temp 存在。")
Else
Response.Write("文件夹【wén jiàn jiá】🕧 c:\temp 不存在【bú cún zài】♿。")
End If
set fs=nothing
%>
</body>
</html>

本实例运行结果如下：

文件夹 c:\temp 不存在【bú cún zài】🚿。

指定的驱动器存在吗？

本例演【běn lì yǎn】🎛示如何使用👼DriveExists方法来探测某个驱动【gè qū dòng】器是否【qì shì fǒu】🌼存在【cún zài】。

本示例📸代码如下：

以下为【yǐ xià wéi】💎引用的内容：

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.driveexists("c:") = true then
      Response.Write("驱动器【qū dòng qì】🍏 c: 存在🦔。")
Else
      Response.Write("驱动器【qū dòng qì】🍏 c: 不存在🦔。")
End If
Response.write("<br>")
if fs.driveexists("g:") = true then
      Response.Write("驱动器【qū dòng qì】🍏 g: 存在🦔。")
Else
      Response.Write("驱动器【qū dòng qì】🍏 g: 不存在🦔。")
End If
set fs=nothing
%>
</body>
</html>

本实例运行结果如下：

驱动器【qū dòng qì】💄 c: 存在【cún zài】💆。
驱动器【qū dòng qì】💄 g: 存在【cún zài】💆。

取得某个指定驱动器的名称

本例演示如何使用GetDriveName方法来🛃取得某⛪个指定【gè zhǐ dìng】🎽的驱动器的名【qì de míng】称【chēng】。

本示例代码如下：

以下为🤙引用的【yǐn yòng de】内容：

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.GetDriveName("c:\windows\cursors\abc.cur")
Response.Write("驱动器名称是【míng chēng shì】🔞：" & p)
set fs=nothing
%>
</body>
</html>

本实例运行结果如下：

驱动器名称是：c:

取得某个指定路径的父文件夹的名称

本例演🗾示如何【shì rú hé】❗使用GetParentFolderName方法来😽取得某【qǔ dé mǒu】个指定【gè zhǐ dìng】的路径的父文件夹的名称。

本示例代码如下：

以下为👌引用的内容【nèi róng】：

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.GetParentFolderName("c:\winnt\cursors\3dgarro.cur")
Response.Write("c:\windows\cursors\abc.cur 的父文件夹名【jiàn jiá míng】🎑称是：" & p)
set fs=nothing
%>
</body>
</html>

本实例运行结果如下：

c:\windows\cursors\abc.cur 的父文件夹名【jiàn jiá míng】🔰称是：c:\winnt\cursors

取得文件夹扩展名

本例演【běn lì yǎn】示如何🗾使用GetExtensionName方法来【fāng fǎ lái】🐩取得指🐭定的路径中的【jìng zhōng de】最后一个成分🍾的文件扩展名【kuò zhǎn míng】。

本示例代码如下：

以下为🍑引用的内容【nèi róng】：

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write("文件🐞 3dgarro 的文件🐞扩展名【kuò zhǎn míng】是【shì】🍋：")
Response.Write(fs.GetExtensionName("c:\windows\cursors\abc.cur"))
set fs=nothing
%>
</body>
</html>

本实例运行结果如下：

文件 3dgarro 的文件【de wén jiàn】扩展名【kuò zhǎn míng】🤢是⛴：cur

取得文件名

本例演示如何🌝使用🥈GetFileName方法来取得指【qǔ dé zhǐ】定的路🚩径中的【jìng zhōng de】最后一个成分【gè chéng fèn】的文件【de wén jiàn】名🚂。

关键词【guān jiàn cí】🥄：ASP,FileSystemObject

阅读本文后您有什么感想? 已有 0 人给出评价!

2
1
1
11
1
1