文本文件的处理

[amu0528]

如何：
1 判断文件名为xxx.txt 文件是否存在 若存在则删除 不存在则创建一空文件

[lpb830820]

用文件系统象 File System Object ，在工程上引用 Microsoft Scripting Runtime ，具体用法在对象浏览器里面看一下就知关道了。

[还想懒够]

1 判断文件名为xxx.txt 文件是否存在 若存在则删除 不存在则创建一空文件


If Dir(文件路径)<>"" Then
Kill 文件路径
Else
Open 文件路径 For Output As #1

Close #1
End If

[lpb830820]

也可以通过 VB 的 Dir 命令

[我啃]

用FILE SYSTEM OBJECT在引用中引后就可以使用了函数好相家FILEEXIST，具体名字忘记了，可以查一查，马上就知道了

[iland9876543210]

顶

[dorremon1992]

on error goto 10
open *.txt for input as #1
close #1
kill *.txt
exit sub
10:
open *.txt for output as #1
. . .
close #1
End

[faysky2]

不用判断文件是否存在

SetAttr "c:\xxx.txt", vbNormal
Open "c:\xxx.txt" For Output As #1
Close #1
---------------
如果文件存在,上面的代码会把文件替换掉,生成一个空的文件,如果文件不存在,直接生成一个空文件

[lmlm3]

sPathName = "d:\xy\ccc"
Set fs = CreateObject("Scripting.FileSystemObject")
Set fsFolder = fs.getfolder(sPathName)
Set fsFiles = fsFolder.Files
Set fsFolders = fsFolder.SubFolders

If Not fs.FolderExists(sPathName ) Then
Set Folder05h = fs.CreateFolder(sPathName )
Else
Set Folder05h = fs.getfolder(sPathName )
End If

[happy_sea]

蹭分
If Dir("c:\xxx.txt")<>"" Then
SetAttr "c:\xxx.txt", vbNormal
Kill "c:\xxx.txt"
Else
Open "c:\xxx.txt" For Output As #1
Close #1
End If

[清晨曦月]

哈哈。。。。。。。。。我还能说啥。。。。不搞怪了，蹭分

[VirtualDesktop]

JF~

[ilove8]

up

[吾非大神]

If Dir(文件路径)<> Empty Then
Kill "TestFile" ' 删除。

' 将当前目录下所有 *.TXT 文件全部删除。
' Kill "*.TXT"
Else
Open 文件路径 For Output As #1

Close #1
End If

[吾非大神]

向amu0528 (小木屋) 借问一下lmlm3() :
Set fsFiles = fsFolder.Files
Set fsFolders = fsFolder.SubFolders
这两句放在那里什么意思，起什么作用呀]，前面那两条语句还不够吗？为什么加上这些？
望请回复，多谢！！！
楼主请不要忘记结帖！呵呵！