国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP實例教程:FileSystemObject對象_ASP教程

2024-05-04 11:04:03
字體:
來源:轉載
供稿:網友

推薦:ASP實例教程:Form集合
Form集合 注意因為本ASP實例教程是關于表單的代碼,為了省事,所以我不截圖了!大家自行測試實例執行結果! 一個Form集合的簡單應用 本例演示Form集合如何從表單取回值。此表單使用POST方法,這意味著發送的信息對用戶來說是不可見的,并且對對所發送信息的

FileSystemObject 對象

指定的文件存在嗎?

本例演示如何首先創建FileSystemObject對象,然后使用FileExists方法來探測某文件是否存在。

本示例代碼如下:

以下為引用的內容:

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists("c:/windows/cursors/xxx.cur"))=true Then
Response.Write("文件 c:/windows/cursors/xxx.cur 存在。")
Else
Response.Write("文件 c:/windows/cursors/xxx.cur 不存在。")
End If
set fs=nothing
%>
</body>
</html>

本實例運行結果如下:

文件 c:/windows/cursors/xxx.cur 不存在。

指定的文件夾存在嗎?

本例演示如何使用FolderExists方法探測某文件夾是否存在。

本示例代碼如下:

以下為引用的內容:

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("c:/temp") = true Then
Response.Write("文件夾 c:/temp 存在。")
Else
Response.Write("文件夾 c:/temp 不存在。")
End If
set fs=nothing
%>
</body>
</html>

本實例運行結果如下:

文件夾 c:/temp 不存在。

指定的驅動器存在嗎?

本例演示如何使用DriveExists方法來探測某個驅動器是否存在。

本示例代碼如下:

以下為引用的內容:

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.driveexists("c:") = true then
Response.Write("驅動器 c: 存在。")
Else
Response.Write("驅動器 c: 不存在。")
End If
Response.write("<br>")
if fs.driveexists("g:") = true then
Response.Write("驅動器 g: 存在。")
Else
Response.Write("驅動器 g: 不存在。")
End If
set fs=nothing
%>
</body>
</html>

本實例運行結果如下:

驅動器 c: 存在。
驅動器 g: 存在。

取得某個指定驅動器的名稱

本例演示如何使用GetDriveName方法來取得某個指定的驅動器的名稱。

本示例代碼如下:

以下為引用的內容:

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.GetDriveName("c:/windows/cursors/abc.cur")
Response.Write("驅動器名稱是:" & p)
set fs=nothing
%>
</body>
</html>

本實例運行結果如下:

驅動器名稱是:c:

取得某個指定路徑的父文件夾的名稱

本例演示如何使用GetParentFolderName方法來取得某個指定的路徑的父文件夾的名稱。

本示例代碼如下:

以下為引用的內容:

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.GetParentFolderName("c:/winnt/cursors/3dgarro.cur")
Response.Write("c:/windows/cursors/abc.cur 的父文件夾名稱是:" & p)
set fs=nothing
%>
</body>
</html>

本實例運行結果如下:

c:/windows/cursors/abc.cur 的父文件夾名稱是:c:/winnt/cursors

取得文件夾擴展名

本例演示如何使用GetExtensionName方法來取得指定的路徑中的最后一個成分的文件擴展名。

本示例代碼如下:

以下為引用的內容:

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write("文件 3dgarro 的文件擴展名是:")
Response.Write(fs.GetExtensionName("c:/windows/cursors/abc.cur"))
set fs=nothing
%>
</body>
</html>

本實例運行結果如下:

文件 3dgarro 的文件擴展名是:cur

取得文件名

本例演示如何使用GetFileName方法來取得指定的路徑中的最后一個成分的文件名。

本示例代碼如下:

以下為引用的內容:

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write("這個文件名的最后一個成分是:")
Response.Write(fs.GetFileName("c:/windows/cursors/abc.cur"))
set fs=nothing
%>
</body>
</html>

本實例運行結果如下:

這個文件名的最后一個成分是:abc.cur

取得文件或文件夾的基名稱

本例演示如何使用GetBaseName方法來返回在指定的路徑中文件或者文件夾的基名稱。

本示例代碼如下:

以下為引用的內容:

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write(fs.GetBaseName("c:/windows/cursors/abc.cur"))
Response.Write("<br />")
Response.Write(fs.GetBaseName("c:/windows/cursors/"))
Response.Write("<br />")
Response.Write(fs.GetBaseName("c:/windows/"))
set fs=nothing
%>
</body>
</html>

本實例運行結果如下:

以下為引用的內容:

abc
cursors
windows

分享:比較幾款Access在線管理工具
ACCESS數據庫現在在個人站長使用的頻率還是很高的,所以各款 ACCESS 在線管理工具也應運而生,我們來看看現在幾款比較流行的優劣: 我們來評評以下幾款工具:亙古 Access 在線管理,虎冀閣 Access 數據庫管理工具,access2008.cn ACCESS 數據庫在線管理系統

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 云浮市| 德清县| 富顺县| 长阳| 龙泉市| 红原县| 德庆县| 南城县| 正定县| 新蔡县| 钦州市| 长子县| 华安县| 江永县| 卓尼县| 方山县| 汪清县| 新河县| 长岛县| 沈阳市| 大宁县| 徐州市| 屏东县| 宁津县| 安国市| 南部县| 宜兴市| 永宁县| 遵义县| 公主岭市| 余江县| 中阳县| 钟祥市| 通江县| 涞水县| 三亚市| 高淳县| 精河县| 彰化县| 英德市| 屏东县|