如何判斷INI檔案存在，不存在，如何生成這個檔案
uj5u.com熱心網友回復：
If Len(Dir("ini檔案.INI"))=0 Then
Open "ini檔案.INI" For Output As #1
Print #1, "......"
Print #1, "......"
Print #1, "......"
Close #1
End If
uj5u.com熱心網友回復：
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
uj5u.com熱心網友回復：
如果 要生成一個WORD檔案呢
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
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
uj5u.com熱心網友回復：
if dir(Path)="" then檔案不存在
創建檔案
end if
uj5u.com熱心網友回復：
如果使用GetprivateprofileString系列API來讀寫INI的話，是不需要判斷檔案是否存在的，只管讀或寫，檔案不存在時會自動創建uj5u.com熱心網友回復：
INI檔案的寫入以及讀出有專門的API函式可以實作，因為在家的關系就無法給你舉實體了，但你可以用度娘去搜一下，應該會有相關的實體uj5u.com熱心網友回復：
我是笨辦法，對任何檔案（不限于ini）都一樣適用1、打開這個檔案
2、關閉這個檔案
3、取檔案長度（經過了前兩步，此時這個檔案肯定已經存在）
如果取到的檔案長度是0位元組，則很可能（但不一定）就是你前兩步所造成的新檔案，此時根據你的需要，或者寫這個檔案，或者把這個空檔案洗掉。
uj5u.com熱心網友回復：
用FILESYSTEMOBJECT不是更方便嘛(⊙_⊙)？uj5u.com熱心網友回復：
批處理bat檔案.if not exist name.ini echo config.txt>name.ini
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/127685.html
標籤：VB基礎類
上一篇：Excel中加vb按鈕