ConvertFile

Private Function ConvertFileToUnix(ByVal SourceFile As String, _
ByVal DestinationFile As String, _
Optional ByVal Overwrite As Boolean = False) As Long
Dim strMine As String
Dim lngPCLength As Long
Dim lngLoop As Long
Dim lngUnixPOS As Long
Dim strChar As String * 1
Dim objFSO As Scripting.FileSystemObject
Dim objSourceAs Scripting.TextStream
Dim objDestination As Scripting.TextStream
Screen.MousePointer = vbHourglass
Me.Enabled = False
Set objFSO = New Scripting.FileSystemObject
Set objSource = objFSO.OpenTextFile(SourceFile, ForReading, False, TristateFalse)
Set objDestination = objFSO.CreateTextFile(DestinationFile, Overwrite, False)
Do While Not objSource.AtEndOfStream
strChar = objSource.Read(1)
If Asc(strChar) <> 13 Then
objDestination.Write strChar
End If
Loop
objSource.Close
objDestination.Close
Set objSource = Nothing
Set objDestination = Nothing
Set objFSO = Nothing
End Function