Newsgroup: it.comp.appl.access
Titolo: Trasferimento file FTP

Salve
Cercando di usare questo codice
per pubblicare un file da remoto sul web
ma non funge ......
soluzione in merito
posto il codice:
'*********************************************************************************
Public Function GIN_FTP()
Dim filename As String
filename = "C:\Programmi\Documenti\Software.txt"
Open "C:\Programmi\gin_ftp.txt" For Output As #1
'creo il file script GIN_FTP da eseguire
 Print #1, "lcd ""C:\Programmi\Smop\Documenti"""    'cartella locale
 Print #1, "open 
ftp.xxxxxxxxxxxx.it
"        'indirizzo del server web
 Print #1, "
xxxx...@aruba.it
"    'User
 Print #1, "xxxxxxxxxxxx"          'Password
 Print #1, "cd public"        'sottocartella  sul server web
 Print #1, "binary"                            'modalità di trasferimento
 Print #1, "Put " + filename + " " + filename        'scarica un file da 
web. Usare Put per pubblicarlo
 Print #1, "bye"
 Close #1
'eseguo lo script appena creato e ne aspetto la fine
Call sFTP("C:\Programmi\gin_ftp.txt")
Beep
Kill "C:\Programmi\gin_ftp.txt"
End Function
'********************** Code End *************************
Public Function sFTP(stSCRFile As String)
Dim stSysDir As String
    stSysDir = Environ$("COMSPEC")
    stSysDir = Left$(stSysDir, Len(stSysDir) - Len(Dir(stSysDir)))
    Call Shell(stSysDir & "ftp.exe -s:" & stSCRFile, vbNormalFocus)
End Function
'********************** Code End *************************
Public Function Ric()
Call sFTP("C:\Programmi\Smop\gin_ftp.txt")
End Function
'********************** Code End ************************* 

 ha scritto nel messaggio 
news:4839b267$0$35953$4faf...@reader2.news.tin.it...

Se lo fai "a mano" funziona?
Ciao.
-- 
Sergio MAZZA 


Scusami non mi e chiaro!
Cosa vuol dire "se lo fai a mano funziona" ?

 Cosa vuol dire "se lo fai a mano funziona" ?
Tramite un client ftp tipo: filezilla...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:g1ee8g$4tj$1...@tdi.cu.mi.it...

Si certo che funziona lo uso continuamente
ed i file vengono pubblicati senza problemi . 

 ed i file vengono pubblicati senza problemi .
Scusa nel codice leggo:
...
filename = "C:\Programmi\Documenti\Software.txt"
...
e poi:
...
Print #1, "Put " + filename + " " + filename        'scarica un file da
...
Non credo che tu riesca a scrivere un file, tramite FTP, con path del tipo: 
"C:\Programmi\Documenti\Software.txt"
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:g1gr0h$gnd$1...@tdi.cu.mi.it...

Potresti indicarmi il codice corretto corretto? 

 Potresti indicarmi il codice corretto corretto?
Se qui:
...
 Print #1, "cd public"        'sottocartella  sul server web
...
cambi la cartella ed è giusta la posizione;
il codice risulta:
...
Print #1, "Put " + filename + " Software.txt"
...
Cioè, devi indicare solo il nome del file non il path (oltretutto 
sbagliato).
Poi, ora che leggo meglio il tuo codice trovo scritto:
...
Print #1, "lcd ""C:\Programmi\Smop\Documenti"""    'cartella locale
...
Ma si può sapere cosa devi fare? Boh!
Fai prima a separare i dati path e nomeFile:
'---
Public Function GIN_FTP()
Dim tmp_path As String
Dim tmp_fileName As String
tmp_path = "C:\Programmi\Documenti\"
tmp_fileName = "Software.txt"
Open "C:\Programmi\gin_ftp.txt" For Output As #1
'creo il file script GIN_FTP da eseguire
 Print #1, "lcd ""C:\Programmi\Smop\Documenti"""    'cartella locale
 Print #1, "open 
ftp.xxxxxxxxxxxx.it
"        'indirizzo del server web
 Print #1, "
xxxx...@aruba.it
"    'User
 Print #1, "xxxxxxxxxxxx"          'Password
 Print #1, "cd public"        'sottocartella  sul server web
 Print #1, "binary"                            'modalità di trasferimento
'scarica un file da web. Usare Put per pubblicarlo
 Print #1, "Put " + tmp_paht + tmp_fileName + " " + tmp_fileName
 Print #1, "bye"
 Close #1
'eseguo lo script appena creato e ne aspetto la fine
Call sFTP("C:\Programmi\gin_ftp.txt")
Beep
Kill "C:\Programmi\gin_ftp.txt"
End Function
...
'---
Sempre che la riga:
...
Print #1, "lcd ""C:\Programmi\Smop\Documenti"""    'cartella locale
...
sia giusta...
Ciao.
-- 
Sergio MAZZA