[vb6] salvare da remoto

[chisono]

bonjeur amicici,

volevo sapere se è possibile salvare un'applicazione da remoto, ovvero:

ho creato una form dove tra le altre cose c'è un pulsante "salva"

alla pressione del pulsante il programma dovrebbe caricare un' indirizzo sul mio server e scaricare un file.

vorrei far eseguire quest'operazione senza la finestra di dialogo "salva", siccome il file che deve essere scaricato deve essere salvato nella path di esecuzione del programma.


suggerimenti?

[LMondi]

Sì è possibile farlo basta impostare in precedenza il Titolo del file (nell'esempio FrmAA.TxtNuovoFile.Text & ".csv"):

Public Sub SalvaSP()
On Error Resume Next
           
        Dim FileNum As Integer
        Dim FileName As String
        Dim FileTitle As String
    
        FileName = App.Path & "\DATI\StatoPatrimoniale\" & FrmAA.TxtNuovoFile.Text & ".csv"
        FileTitle = FrmAA.TxtNuovoFile.Text & ".csv"
        frmMain.TxtInd2.Text = FileName     'Visualizza nome e percorso del file in uso nella Barra di stato
        FileNum = FreeFile()
        
        If Len(FileName) = 0 Or Len(FileTitle) = 0 Then
            Call SalvaSPpassivo             'Chiama la routine Salva con nome
            Exit Sub
        End If
        
'Stato Patrimoniale Attivo:
        Dim dblSPA1s As Double, dblSPA2s As Double, ...
        ... ...
        dblSPA1s = FrmStatoPatrim.Txt1SP.Text           
        dblSPA2s = FrmStatoPatrim.Txt2SP.Text
        ... ...
        Open FileName For Output As #FileNum
           Write #FileNum, dblSPA1s, dblSPA2s,
        ... ...  
        Close #FileNum
'Indica che lo Stato Patrimoniale è stato salvato:
            FrmStatoPatrim.boolVerifica10 = True

Ciao.

[chisono]

grazie mille