《WEB程序设计与应用》网络教学平台

<html>
<head>
<title> 新建一个文本文件</title>
</head>
<body>
<%
Dim FileObject '定义一个FileSystemObject对象实例
Dim TextFile '定义一个TextStream对象实例
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set TextFile= FileObject.CreateTextFile("c:\inetpub\wwwroot\asptemp\chapter8\test.txt")
TextFile.WriteLine("你好")
TextFile.Close '关闭TextStream对象
%>
</body>
</html>

2、

html>
<head>
<title> 读取已有文本文件</title>
</head>
<body>
<%
Dim FileObject '定义一个FileSystemObject对象实例
Dim TextFile '定义一个TextStream对象实例
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set TextFile= FileObject.OpenTextFile("c:\inetpub\wwwroot\asptemp\chapter8\test.txt")
Do While Not TextFile.AtEndOfStream
Response.Write TextFile.ReadLine & " " '逐行读取，直到文件结尾
Loop
TextFile.Close '关闭TextStream对象
%>
</body>
</html>

3、

<html>
<head>
<title>在文本文件中添加内容</title>
</head>
<body>
<%
Dim FileObject '定义一个FileSystemObject对象实例
Dim TextFile '定义一个TextStream对象实例
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set TextFile= FileObject.OpenTextFile("c:\inetpub\wwwroot\asptemp\chapter8\test.txt",8,True)
TextFile.WriteLine("添加内容") '添加内容
TextFile.Close '关闭TextStream对象
%>
</body>
</html>

4、

<html>
<head>
<title>文件的复制、移动和删除</title>
</head>
<body>
<%
Dim FileObject '定义一个FileSystemObject对象实例
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Dim SourceFile,DestiFile '定义源文件和目标文件变量
'复制文件---将test.txt复制为test2.txt
SourceFile="c:\inetpub\wwwroot\asptemp\chapter8\test.txt"
DestiFile="c:\inetpub\wwwroot\asptemp\chapter8\test2.txt"
FileObject.CopyFile SourceFile, DestiFile
'移动文件---将test2.txt移动到temp文件夹下，应保证temp文件夹存在
SourceFile="c:\inetpub\wwwroot\asptemp\chapter8\test2.txt"
DestiFile="c:\inetpub\wwwroot\asptemp\chapter8\temp\test2.txt"
FileObject.MoveFile SourceFile, DestiFile
'删除文件---如果test2.txt存在，则将其删除
SourceFile="c:\inetpub\wwwroot\asptemp\chapter8\temp\test2.txt"
IF FileObject.FileExists(SourceFile) Then
FileObject.DeleteFile SourceFile
End If
%>
</body>
</html>

5、

<html>
<head>
<title>文件夹的新建、复制、移动和删除</title>
</head>
<body>
<%
Dim FileObject '定义一个FileSystemObject对象实例
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Dim SourceFolder,DestiFolder '定义源文件夹和目标文件夹变量
'新建文件夹---新建new1文件夹
SourceFolder="c:\inetpub\wwwroot\asptemp\chapter8\new1"
FileObject.CreateFolder SourceFolder
'复制文件夹---将new1复制为new2文件夹
SourceFolder="c:\inetpub\wwwroot\asptemp\chapter8\new1"
DestiFolder="c:\inetpub\wwwroot\asptemp\chapter8\new2"
FileObject.CopyFolder SourceFolder, DestiFolder
'移动文件夹---将new2文件夹移动到new1下
SourceFolder="c:\inetpub\wwwroot\asptemp\chapter8\new2"
DestiFolder="c:\inetpub\wwwroot\asptemp\chapter8\new1\new2"
FileObject.MoveFolder SourceFolder, DestiFolder
'删除文件夹---如存在，将new2文件夹删除
SourceFolder="c:\inetpub\wwwroot\asptemp\chapter8\new1\new2"
IF FileObject.FolderExists(SourceFolder) Then
FileObject.DeleteFolder SourceFolder
End If
%>
</body>
</html>

6、

<html>
<head>
<title>显示指定文件夹下所有的子文件夹和文件</title>
</head>
<body>
<%
Dim myFileObject '定义一个FileSystemObject对象实例
Dim myFolder '定义一个Folder对象
Set myFileObject=Server.CreateObject("Scripting.FileSystemObject")
'GetFolder方法将返回一个Folder对象
Set myFolder=myFileObject.GetFolder("c:\inetpub\wwwroot\AspTemp\chapter8")
Response.Write "c:\inetpub\wwwroot\AspTemp\chapter8子文件夹如下： "
For Each Item In myFolder.SubFolders
Response.Write Item & " "
Next
Response.Write "c:\inetpub\wwwroot\AspTemp\chapter8子文件如下： "
For Each Item In myFolder.Files
Response.Write Item & " "
Next
%>
</body>
</html>

~ 江西信息应用技术职业学院信息技术系制作 ~

E-Mail:lxlz2050@163.net Tel:0791-5275546