Public Sub WriteTxt(ByVal strPara As String) On Error Resume Next Dim objFSO As Object Dim objTextFile As Object Set objFSO = New Scripting.FileSystemObject Set objTextFile = objFSO.OpenTextFile(App.Path & "\para.txt", ForAppending, True) objTextFile.WriteLine strPara objTextFile.Close Set objTextFile = Nothing Set objFSO = Nothing End Sub
On Error Resume Next
Dim objFSO As Object
Dim objTextFile As Object
Set objFSO = New Scripting.FileSystemObject
Set objTextFile = objFSO.OpenTextFile(App.Path & "\para.txt", ForAppending, True)
objTextFile.WriteLine strPara
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
End Sub