网络编程
位置:首页>> 网络编程>> Asp编程>> [精品]ASP中常用的22个FSO文件操作函数(5)

[精品]ASP中常用的22个FSO文件操作函数(5)

 来源:cnlei.org 发布时间:2007-08-18 15:12:00 

标签:FSO,函数,文件操作

13.使用FSO创建文件夹 


Function createFolderDemo(FolderName)  
’//功能:创建的文件夹  
’//形参:目录名  
’//返回值:成功为1,失败为-1  
’//  
Dim f  
If ReportFolderStatus(FolderName) = 1 Then  
createFolderDemo = -1  
Else  
Set f = fso.createFolder(FolderName)  
createFolderDemo = 1  
End if  
End Function

 


14.FSO删除指定文件夹目录 


Function deleteAFolder(Folderspec)  
’//功能:目录删除  
’//形参:目录名  
’//返回值:成功为1,失败为-1  
’//  
Response.write Folderspec  
If ReportFolderStatus(Folderspec) = 1 Then  
fso.deleteFolder (Folderspec)  
deleteAFolder = 1  
Else  
deleteAFolder = -1  
End if  
End Function 


15.FSO显示指定目录的文件夹目录列表


Function ShowFolderList(folderspec)  
’//功能:目录存在时显示此目录下的所有子目录  
’//形参:目录名  
’//返回值:成功为子目录列表,失败为-1  
’//  
Dim f, f1, fc, s  
If ReportFolderStatus(folderspec) = 1 Then  
Set f = fso.GetFolder(folderspec)  
Set fc = f.SubFolders  
For Each f1 in fc  
s = s & f1.name  
s = s & "|"  
Next  
ShowFolderList = s  
Else  
ShowFolderList = -1  
End if  
End Function  


0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com