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

2013-03-11 04:50:09 1.1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

电源管理芯片PMIC （Power Management Integrated Circuits，简称：将电源电压转换为电子设备各部分所需的适当电压水平，包括升压（Boost）、降压（Buck）和升降压（Buck-Boost）转换。：控制和限制流向电子设备各部分的电流，以保护组件免受过电流损害。：管理多个电源轨，为不同的部分提供稳定的电能控制。电源轨指电路板上传输电力的线路。电源监控：提供过电压、欠电压、过电流、过热和短路保护，以防止电子设备损坏。：通过高效的电源转换技术，减少能量损耗，提高能源利用效率。阅读详情

...全文

WPS Office 2019 For Linux二次开发全流程：从源码下载到Demo运行本文详细介绍了在Linux环境下进行WPS Office 2019 C++二次开发的全流程，涵盖从开发环境准备、源码获取、核心依赖（Qt与WPS）安装配置，到最终编译运行官方Demo的完整步骤。文章重点解析了环境搭建中的常见问题与解决方案，旨在帮助开发者快速上手WPS二次开发。阅读详情

shheshe

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

何乐不为 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

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

相关推荐