很菜的问题，一时找不到答案，只好来提问啦！

Question

菜鸟的问题很不好意思麻烦大家，可是没有别的办法......
1、怎样把文本框里的内容保存成一个*.ini文件，而且可以指定保存路径，可以设定文件属性？
2、怎样按照指定的路径把一个*.ini文件的内容读到一文本框中来？
3、是否一定要用API才能达到这个目的呢？

Answer 1

API:
Public Declare Function GetPrivateProfileString Lib "KERNEL32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPublic Declare Function WritePrivateProfileString Lib "KERNEL32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Answer 2

'打开文件
Private Sub Command1_Click()
    Dim strTmp As String
    
    Open "C:\aa.ini" For Input As #1
    strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
    Close #1
    
    Text1.Text = strTmp
End Sub'保存文件
Private Sub Command2_Click()
    Open "C:\aa.ini" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub

Answer 3

设置文件属性SetAttr 语句为一个文件设置属性信息。语法SetAttr pathname, attributesSetAttr 语句的语法含有以下这些命名参数：部分 描述
   
pathname 必要参数。用来指定一个文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。
Attributes 必要参数。常数或数值表达式，其总和用来表示文件的属性。
设置值attributes 参数设置可为：常数 值 描述
vbNormal 0 常规（缺省值）
vbReadOnly 1 只读
vbHidden 2 隐藏
vbSystem 4 系统文件
vbArchive 32 上次备份以后，文件已经改变
注意   这些常数是由 VBA 所指定的，在程序代码中的任何位置，可以使用这些常数来替换真正的数值。说明如果想要给一个已打开的文件设置属性，则会产生运行时错误。

Answer 4

如果你只想操作INI文件的几个区域可以用下面的方法:Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPrivate Sub Form_Load()
    Open "C:\aa.ini" For Output As #1
    Print #1, "文件内容"
    Close #1
End SubPrivate Sub Label1_Click()
On Error GoTo Errhandle
    ShellExecute Me.hwnd, "open", "www.sohu.com", vbNullString, vbNullString, 1
    Exit Sub
Errhandle:
    MsgBox Err.Description & "！", vbInformation
End Sub'写INI文件
Private Sub Command1_Click()
    Dim Counter As Long    For Counter = 1 To 4
        Call WriteToIni(App.Path & "\Options.ini", "Test", "Name" & Counter, "Value" & Counter)
    Next Counter
End Sub'读INI文件
Private Sub Command2_Click()
    Dim Counter As Long
    Dim Value(3) As String    For Counter = 1 To 4
        Value(Counter - 1) = ReadFromIni(App.Path & "\Options.ini", "Test", "Name" & Counter)
    Next Counter
End Sub