You can this info with InternetGetConnectedState Win API function http://msdn.microsoft.com/en-us/library/aa384702(VS.85).aspx

DECLARE SHORT InternetGetConnectedState IN Wininet.dll;
    Long @ lpdwFlags, Long  dwReserved
lnConnectedState = 0
lnRC = InternetGetConnectedState(@lnConnectedState, 0)
? lnRC, lnConnectedState

>I had a procedure which tested if my pc was connected on internet and how it was connected. I called it getstatusconnection.
>
>

>	lcStatus = Alltrim(Transform(oFtp.GetStatusConnection()))
>	Do case
>		Case lcstatus = '-1'
>			lntenta = lntenta + 1
>		Case '2' $ lcstatus
>			*connesso  via LAN
>		Case '1' $ lcstatus
>			*connesso via Modem
>		Case '4' $ lcstatus
>			* connesso con proxy
>		Otherwise
>			lntenta = lntenta + 1	
>	EndCase
>

>Well I cannot find this procedure anymore :(
>so that i cannot remember which function I was calling. I thought it was a api function, almost sure it belonged to the Ftp_service class i use and that i got from here.
>
>Any Help ?
>
>What I have to do is to check if an internet connection exist to decide wether try a Dial up connection or check directly a ftp directory