Newsgroup: it.comp.appl.access
Titolo: Ftp

Ciao a tutti,
ho creato in una maschera un pulsante "carica" che, con EseguiApplicazione, 
esegue un file Batch  "c:\carica.bat" che usa comandi Ftp:
[carica.bat]
ftp -s:carica.txt 
ftp.dragonflysolution.it
[carica.txt]
dragonflysolution.it
nonveladico
send magazzino.mdb
quit
Se lo eseguo direttamente da windows funziona, se uso il pulsante creato mi 
apre la schermata della Shell e la chiude immediatamente senza riuscire a 
leggere il contenuto.
Qualcuno sa dirmi come risolvere il problema?
Grazie
Gianfranco

"Gian" <gia...@NONPIUlibero.it> ha scritto nel messaggio
news:bqpZg.1551$fE3....@tornado.fastwebnet.it...

Prova a togliere il quit, chissà che butti bene.
Ciao.
eSQueL

 ha scritto nel messaggio 
news:3fvZg.8112$uv5....@twister1.libero.it...


Gian ha scritto:

Non ho capito cosa dovrebbe fare....??
Deve eseguirlo ed attenderne il termine...??
@Alex



@Alex
____________________________________________
Il file  .bat carica sul server il file magazzino.mdb sovrascrivendolo, con 
l'adsl impiega 16 secondi e poi chiude la finestra di Dos.
Dragonlfy.it e nonveladico sono i codici utente e pwd per accedere via Ftp.
Ciao e grazie dell'attenzione.
Gian 

 Gian
Va bene, allora qual'è il problema...?
Vuoi che si attenda il tempo di esecuzione del BAT....?
Sub MyShell(ByVal Percorso As String, _
            ByVal windowstyle As Integer, _
            ByVal Attendi As Boolean)
Dim wshell As Object
Set wshell = CreateObject("WScript.shell")
wshell.Run Percorso, windowstyle, Attendi
Set wshell = Nothing
End Sub
Al posto di Percorso passa la stringa che esegue il Bat, si tratta di
una Shell alla fine...eseguita in modalità Sincrona se passerai
Attendi=true
@Alex

 ha scritto nel messaggio 
news:1161255875.3...@k70g2000cwa.googlegroups.com...
Gian ha scritto:





@Alex
________________________
il problema è che non esegue il file Bat direttamente da Access.
Apre la finestra Dos e la chiude direttamente senza eseguire il comando FTP.
Se creo un altro file Bat senza comandi Ftp lo carica tranquillamente.
Non capisco il perchè...
Chiederei a qualcuno di fare una prova.
Ciao e grazie
Gian
Ciao
Gian 

 Gian
--
Lorenzo

 ha scritto nel messaggio 
news:VrM_g.12880$uv5....@twister1.libero.it...

Grazie dell'attenzione,
ma quello che non capisco č perchč se il file bat lo eseguo direttamente 
funziona e se lo faccio partire tramite access no.
Le istruzioni son giuste, anche provando la tua soluzione.
I misteri di Access...
Ho postato una sequenza di comandi che si possono provare per caricare un 
file sul web.
Chiederi a qualcuno di postare un'altro modo per caricare un file secondario 
database.mdb su uno spazio ftp.
Grazie
Ciao
Gian

 Gian
--
Lorenzo

 Gian
Utilizza un controllo ocx free:
Es.
'---
'--> lo trovi: 
http://activex.sourceforge.net/esftp.html
'--> utilizzo:
'--> Transfer EsFtp32.ocx to your \windows\system or \winnt35\system32 
directory and register it by executing the command:
'--> RegSvr32 \Windows\System\EsFtp32.ocx
'--> RegSvr32.exe can be found on the Visual Basic 4.0 CD-ROM and in our dll 
archive (
www.eurosource.se
).
'--> If RegSvr32.exe fails, it's probably because you don't have the MFC 4.0 
DLL library installed on your system.
'--> This is available from many sources on the Internet including our ftp 
archive as MFCDLLS.ZIP. Regsvr32.exe is also included in this archive.
'--> If you want to check if you already got the files in mfcdlls.zip they 
are
    Dim EsFtp1 As EsFtp
    Set EsFtp1 = CreateObject("EsFtp.EsFtpCtrl.1")
DoEvents
    EsFtp1.Port = 21
    EsFtp1.RemoteHost = "
ftp.miosito.it
"
    EsFtp1.UserName = "" & "miouser"
    EsFtp1.password = "" & "miapass"
If EsFtp1.Connect Then
    If EsFtp1.ChangeWorkingDir("cartella") = True Then
        If EsFtp1.GetRemoteFile("nomeFile.boh", "C:\nomeFile.boh", "I") = 
True Then
            MsgBox "Scaricato."
        Else
            MsgBox "Non scaricato."
        End If
    Else
        MsgBox "Errore nel cambio directory"
    End If
Else
    MsgBox "Connessione fallita"
End If
EsFtp1.Disconnect
MsgBox "Disconnesso."
Set EsFtp1 = Nothing
'---
Ciao.
-- 
Sergio MAZZA 

> ma quello che non capisco č perchč se il file bat lo eseguo direttamente 

Ora provo, se non mi perdo via...
Thanx
Gian