for i=1 to N My.Computer.Network.UploadFile(Application.StartupPath & "\" & _NomeFile(i), FTP_SERVER & POS_IMG & _NomeFile, FTP_USER, FTP_PW, True, 100) next