如何判断INI文件存在，不存在，如何生成这个文件

shheshe 2013-03-11 04:50:09

...全文

996 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

何乐不为 2014-03-24

打赏
举报

批处理bat文件. if not exist name.ini echo config.txt>name.ini

风桑 2013-03-29

打赏
举报

用FILESYSTEMOBJECT不是更方便嘛(⊙_⊙)？

贸易飞 2013-03-29

打赏
举报

我是笨办法，对任何文件（不限于ini）都一样适用 1、打开这个文件 2、关闭这个文件 3、取文件长度（经过了前两步，此时这个文件肯定已经存在）如果取到的文件长度是0字节，则很可能（但不一定）就是你前两步所造成的新文件，此时根据你的需要，或者写这个文件，或者把这个空文件删除。

yongshengqi 2013-03-15

打赏
举报

INI文件的写入以及读出有专门的API函数可以实现，因为在家的关系就无法给你举实例了，但你可以用度娘去搜一下，应该会有相关的实例

taoguangye 2013-03-15

打赏
举报

如果使用GetprivateprofileString系列API来读写INI的话，是不需要判断文件是否存在的，只管读或写，文件不存在时会自动创建

worldy 2013-03-14

打赏
举报

if dir(Path)="" then 文件不存在创建文件 end if

dong_y888 2013-03-14

打赏
举报

    Dim fs, f
    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

别让人生输给心情 2013-03-14

打赏
举报

shheshe 2013-03-14

打赏
举报

引用 2 楼 dong_y888 的回复:

Visual Basic code ? 123456789 Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") If Not fs.FileExists("C:\test.ini") Then Set f = fs.CreateTextFile("C:\test.in……

如果要生成一个WORD文档呢

dong_y888 2013-03-11

打赏
举报

    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

z_wenqian 2013-03-11

打赏
举报

If Len(Dir("ini文件.INI"))=0 Then

    Open "ini文件.INI" For Output As #1

        Print #1, "......"

        Print #1, "......"

        Print #1, "......"

    Close #1

End If