Option Explicit
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 GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long

 

 
Private r As Long
Private entry As String
Private iniPath As String

 

 
Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function

这是一部分代码..全部在 附件里面,如果怕有毒的话就别下了. 就直接把上面的给加下注释好么??? 我是新人

对了还有一个问提

entry$ = Text1.Text  
iniPath$
这是什么意思 为什么要加$符号啊????  谢谢各位了

我也希望找个 师傅 如果有人愿意.直接发论坛短消息 给我你的联系QQ吧

上面那部分都是win  API声明，具体的你查下API操作手册，论坛里有，你找找吧