DumpStringToFile
Dumps a string to a file
Inputs
strString--string to dump
strFile--file to dump to
Rate DumpStringToFile
(39(39 Vote))
Sub Dump_String_To_File (ByVal strString As String, ByVal strFile As String)
Dim fileFile As Integer
fileFile = FreeFile
Open strFile For Output As fileFile
Write #fileFile, strString
Close fileFile
Dim intReturn
On Error Resume Next
intReturn = Shell("c:\apps\utility\textpad\txtpad16.exe " & strFile, 1)
On Error GoTo 0
End Sub
DumpStringToFile Comments
No comments yet — be the first to post one!
Post a Comment