Salve a tutti utenti e moderatori di HTML.it, sono nuovo in questo grande sito. Ho creato un post in questa sezione perchè ho un problema con uno script di VB6 (non creato da me) con Inet1... Questo script servirebbe a salvare, tramite un command1, in un file txt il testo scritto nel Text1.Text e Text2.Text e ad uploaddarlo sul mio sito altervista tramite, ripeto, Inet1.
Questo è il codice:
Il problema si presenta quando vado a premere il Command Button1, perchè mi appare questo errore: "Impossibile connettersi all'Host Remoto". Premetto che ho premuto CTRL + T e ho spuntato Microsoft Internet Transfer Control 6.0 (SP6) e che lo ho inserito nella form. Forse l'errore sta proprio nel fatto che ho la versione 6.0 (SP6)... Non saprei.codice:Private Sub Command1_Click() Open "C:\temp\file.txt" For Output As #1 Print #1, "Testo numero 1: " & Text1.Text; " Testo numero 2: " & Text2.Text; ". " Close #1 Dim nomefile As String Dim ftpwebsite As String account = "MioUsername" 'Username che uso per accedere al mio account altervista pswd = "password" 'password che uso per accedere al mio account altervista ftpwebsite = "ftp://MioUsername.altervista.org" Inet1.URL = ftpwebsite Inet1.UserName = account Inet1.Password = pswd nomefile = "newupload.txt" Inet1.Execute Inet1.URL, "PUT C:\temp\file.txt " & nomefile Do While Inet1.StillExecuting = True DoEvents Loop End Sub
E' da poco tempo che ho iniziato a lavorare con vb6 e quindi non ci capisco molto.
Chiedo il vostro parere.
Davidex3

.
Rispondi quotando
.Uffa non riesco proprio a capire dov'è l'errore, e soprattutto perchè mi da quell'errore... Spero che i piu esperti o quelli che hanno altervista mi aiutino.
. Appena vado a vedere sul sito di altervista i miei file appena uploaddati, scopro che sono di 0 Byte e che se li apro vedo che sono vuoti, bianchi... Eppure sono sicuro che i file uploaddati sono di 1 Kb e che hanno delle scritte dentro.
Vi prego cerco aiuto!