FileName="1"
SaveDate FileName
’上面为测试参数
Function SaveDate(strDate)
set fs=server.CreateObject("scripting.FileSystemObject")
FileName="E:\TextDate\"&strDate&".txt"
'---------------------------------------------------
'检查文件夹是否存在
if fs.FolderExists("E:\TextDate")=false then
set FileFoEx=fs.CreateFolder("E:\TextDate") '当文件夹不存在时创建一个TextDate的文件夹
end if
'---------------------------------------------------
'---------------------------------------------------
'查找是否有同名存在
if fs.FileExists(FileName)=true then
FileEx=true '有相同文件名以存在
else
FileEx=false '没有相同文件名可以创建
end if
'---------------------------------------------------
if FileEx=true then
response.Write("a") '有同名可以修改当前文件
else
response.Write("b") '如果没有同名直接创建当前文件
'---------------------------------------------------
' set f=fs.CreateTextFile(FileName,true)
' f.writeLine("hellow word")
' f.close
' set f=nothing
'---------------------------------------------------
end if
set fs=nothing
end Function
% >