如何判断INI文件存在，不存在，如何生成这个文件
如何判断INI文件存在，不存在，如何生成这个文件 --------------------编程问答-------------------- --------------------编程问答--------------------Dim fs, f--------------------编程问答--------------------
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists("C:\test.ini") Then
Set f = fs.CreateTextFile("C:\test.ini", True)
f.writeline ("INI 文件内容")
f.Close
Set f = Nothing
End If
Set fs = Nothing
如果 要生成一个WORD文档呢 --------------------编程问答--------------------
--------------------编程问答--------------------
Dim fs, f--------------------编程问答-------------------- if dir(Path)="" then
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists("C:\test.doc") Then
Set f = CreateObject("Word.application")
f.documents.Add
f.selection.Text = "WORD文档内容"
f.activedocument.saveas "c:\test.doc"
f.quit
Set f = Nothing
End If
Set fs = Nothing
文件不存在
创建文件
end if --------------------编程问答-------------------- 如果使用GetprivateprofileString系列API来读写INI的话，是不需要判断文件是否存在的，只管读或写，文件不存在时会自动创建 --------------------编程问答-------------------- INI文件的写入以及读出有专门的API函数可以实现，因为在家的关系就无法给你举实例了，但你可以用度娘去搜一下，应该会有相关的实例 --------------------编程问答-------------------- 我是笨办法，对任何文件（不限于ini）都一样适用
1、打开这个文件
2、关闭这个文件
3、取文件长度（经过了前两步，此时这个文件肯定已经存在）
如果取到的文件长度是0字节，则很可能（但不一定）就是你前两步所造成的新文件，此时根据你的需要，或者写这个文件，或者把这个空文件删除。 --------------------编程问答-------------------- 用FILESYSTEMOBJECT不是更方便嘛(⊙_⊙)？
补充：VB , 基础类
