100分求救.

[oubao]

sqlf = "select * from username"
Set fso = CreateObject("scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\"a".txt", True)
tf.Write sqlf

我用这个段代码保存成a文件，但我想在a文件已经存在条件下则保存成a1文件，a1文件存在条件下保存成a2文件，请问该怎么办？

同样的，在打开文件时我想先把有关a的文件如a1，a2等文件的名字一起列出来，然后选取任意一个后再打开该文件，该怎么写？

谢谢指教！急，请大家帮忙！

[lienzhu]

sqlf = "select * from username"
Set fso = CreateObject("scripting.FileSystemObject")
i=1
FileName="c:\a.txt"
do while fso.FileExists(FileName)
FileName="c:\a" & i &".txt"
i=i+1
loop
Set tf = fso.CreateTextFile(FileName, True)
tf.Write sqlf

[micher_yan]

'检测指定路径或文件是否存在
function Test_FilePath(ByVal filepath)
Test_FilePath=false
filepath=server.MapPath(filepath)
dim fso
set fso=Server.CreateObject("Scripting.FileSystemObject")
if right(filepath,1)="/" or right(filepath,1)="\" then
if fso.FolderExists(filepath) then
Test_FilePath=true
end if
else
if fso.FileExists(filepath) then
Test_FilePath=true
end if
end if
set fso=nothing
end function
'保存内容到指定文件
sub SaveValueTofile(byref FileValue,byref filename)
dim fso
set fso=Server.CreateObject("Scripting.FileSystemObject")
dim f
set f=fso.CreateTextFile(Server.MapPath(filename),true)
f.Write FileValue
set f=nothing
set fso=nothing
end sub
使用
for i=1 to 999
if not test_filepath("a"&i&".txt") then
savevaluetofile(sqlf,"a"&i&".txt")
exit for
end if
next

[suntoday]

帮你顶一下，

[oubao]

谢谢二位的指点。

[lienzhu]

<%
function getfile(filename)
tmp=lcase(filename)
if len(tmp)<5 then
getfile=false
elseif Left(tmp,1)<>"a" or right(tmp,4)<>".txt" then
getfile=false
else
getfile=true
end if
end function
set fso = server.createobject("scripting.filesystemobject")'定义文件系统对象
set fd = fso.getfolder("d:\main") '定义文件夹对象
For Each file in fd.Files
if getfile(file.name) then
response.write "<a href='open.asp?fname="& file.name &"'>" & file.name & "</a><br>"
end if
next
set fd=nothing
set fso=nothing
%>

[lienzhu]

open.asp
---------------------------
<%
Filename="c:\" & trim(request.querystring("fname"))
set fso = server.createobject("scripting.filesystemobject")'定义文件系统对象
if fso.FileExists(Filename) then
set mytext=fso.opentextfile(Filename)
temp=mytext.readall
mytext.close
set mytext=nothing
end if
set fso=nothing
response.write "<pre>"& temp &"<pre>"
%>

[lienzhu]

'.........文件存取部分.................................
sqlf = "select * from username"
Set fso = CreateObject("scripting.FileSystemObject")
i=1
FileName="c:\a.txt"
do while fso.FileExists(FileName)
FileName="c:\a" & i &".txt"
i=i+1
loop
Set tf = fso.CreateTextFile(FileName, True)
tf.Write sqlf
'........文件列表部分.....................................
<%
function getfile(filename)
tmp=lcase(filename)
if len(tmp)<5 then
getfile=false
elseif Left(tmp,1)<>"a" or right(tmp,4)<>".txt" then
getfile=false
else
getfile=true
end if
end function
set fso = server.createobject("scripting.filesystemobject")'定义文件系统对象
set fd = fso.getfolder("c:\") '定义文件夹对象
For Each file in fd.Files
if getfile(file.name) then
response.write "<a href='open.asp?fname="& file.name &"'>" & file.name & "</a><br>"
end if
next
set fd=nothing
set fso=nothing
%>
'...................文件读取部分..............................
open.asp
---------------------------
<%
Filename="c:\" & trim(request.querystring("fname"))
set fso = server.createobject("scripting.filesystemobject")'定义文件系统对象
if fso.FileExists(Filename) then
set mytext=fso.opentextfile(Filename)
temp=mytext.readall
mytext.close
set mytext=nothing
end if
set fso=nothing
response.write "<pre>"& temp &"<pre>"
%>

[dh20156]

现在回帖真难啊，都回一送多~~ -_-!!!

[itcoo]

人才啊~~，做业务员一定满足客户各种要求的。

[pennyclz]

up

[oubao]

万分感谢！！！