.net操作文件

Imports VB = Microsoft.VisualBasic’ '引用 函数     Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer) ''API SLEEP     Public Declare Sub writePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String)     Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer     Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long     Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByVal lpdwProcessId As Long) As Long     Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long     Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long     '文件读取     Public Function readFromIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As String         Try             Dim i As Integer             Dim buff As New Microsoft.VisualBasic.Compatibility.VB6.FixedLengthString(128)             GetPrivateProfileString(Section, Key, "", buff.Value, 128, FileName)             i = InStr(buff.Value, Chr(0))             readFromIni = Trim(Left(buff.Value, i - 1))         Catch ex As Exception             errNo = 1             MsgBox(ex.Message)         End Try     End Function     '文件写入     Public Sub writeToIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)         Try             Dim buff As New Microsoft.VisualBasic.Compatibility.VB6.FixedLengthString(128)             buff.Value = Value & Chr(0)             writePrivateProfileString(Section, Key, buff.Value, FileName)         Catch ex As Exception             MsgBox(ex.Message)             errNo = 1         End Try     End Sub '调用方法 '读取文件中的信息 serverUrl = readFromIni(My.Application.Info.DirectoryPath & "/config.dll", "Service Information", "IPAddress") ‘向文件写入信息 WriteToIni(My.Application.Info.DirectoryPath & "/config.dll", "Service Information", "IPAddress", strIPAddress)