FileToDelete = ("WCR-PreSort.txt") If objFSO.FileExists(FileFolder & FileToDelete) = True Then Dim objOutputFile Set objOutputFile = objFSO.CreateTextFile(FileFolder & FileToDelete, True) objOutputFile.Close objFSO.DeleteFile (FileFolder & FileToDelete) Else ' MsgBox "Msg from Form's VB Code ... File(s) do not exist." End If Dim SourceNum, DestNum, RecLength As Integer Dim ReadLine, strText As String SourceNum = FreeFile() Open "C:\Case Reports\Access Data\WCR-Merged2.txt" For Input As SourceNum DestNum = FreeFile() Open "C:\Case Reports\Access Data\WCR-PreSort.txt" For Append As DestNum Do While Not EOF(SourceNum) Input #SourceNum, ReadLine RecLength = Len(ReadLine) If RecLength > 4095 Then strText = "Due to content length, this text cannot be viewed here." Else strText = ReadLine End If Print #DestNum, strText Loop Exit_RunCommandPreSort_Click: Close #DestNum Close #SourceNum Exit Sub
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.