oFTP = New FTPClient(strFTPURL, strFTPUSR, strFTPPWD)

If oFTP.Error.Message.Length > 0 Then
    Application.Exit
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Dim dirLIST As FTPClient.FTPDirectory
dirLIST = oFTP.DirectoryInfo("/")

Option Private Module
Option Explicit
 
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
  lpSFlags As Long, ByVal dwReserved As Long) As Long
 
Const INTERNET_CONNECTION_LAN          As Long = &H2
Const INTERNET_CONNECTION_MODEM        As Long = &H1
Const INTERNET_CONNECTION_PROXY        As Long = &H4
Const INTERNET_CONNECTION_MODEM_BUSY   As Long = &H8
 
 
Public Function IfOnline() As Boolean
  Dim icFlags As Long
 
  Call InternetGetConnectedState(icFlags, 0&)
  IfOnline = False
 
  If icFlags And INTERNET_CONNECTION_LAN Then
    IfOnline = True
  End If
 
  If icFlags And INTERNET_CONNECTION_MODEM Then
    IfOnline = True
  End If
 
  If icFlags And INTERNET_CONNECTION_PROXY Then
    IfOnline = True
  End If
 
  If icFlags And INTERNET_CONNECTION_MODEM_BUSY Then
    IfOnline = False
  End If
 
End Function