04/01/10 21:31
visualrenzo
salve a tutti ho un problema.
sto cercando di usare l' inet e a quanto pare ci sono riuscito.
ho scritto il seguente codice che estrae dal sito estrazionidellotto.com/…
il file enaltxt.exe e me lo salva su c:
Il problema è che il file è un punto exe io vorrei che una volta scaricato, in automatico me lo estrae e lo trasforma in un .xls di excel infatti quando lo estraggo è un .csv ma a me serve .xml
Io lo trasformo in xls aprendo il file .csv e salvandolo come cartella di lavoro di microsoft excel 97-2002.
Questo è il codice
Public Sub Command1_Click()
Dim strSourceFile As String, strDestinationFile As String
strSourceFile = "estrazionidellotto.com/…;
strDestinationFile = ("C:\Enascaricato.exe"
Dim bytInputData() As Byte
Dim IntNumberFile As Integer
bytInputData() = Inet1.OpenURL(strSourceFile, icByteArray)
IntNumberFile = FreeFile
Open strDestinationFile For Binary As #IntNumberFile
Put #IntNumberFile, , bytInputData()
Close #IntNumberFile
End Sub
.... e poi come faccio a sapere quando ha finito di salvarlo in c: ?
Grazie
sto cercando di usare l' inet e a quanto pare ci sono riuscito.
ho scritto il seguente codice che estrae dal sito estrazionidellotto.com/…
il file enaltxt.exe e me lo salva su c:
Il problema è che il file è un punto exe io vorrei che una volta scaricato, in automatico me lo estrae e lo trasforma in un .xls di excel infatti quando lo estraggo è un .csv ma a me serve .xml
Io lo trasformo in xls aprendo il file .csv e salvandolo come cartella di lavoro di microsoft excel 97-2002.
Questo è il codice
Public Sub Command1_Click()
Dim strSourceFile As String, strDestinationFile As String
strSourceFile = "estrazionidellotto.com/…;
strDestinationFile = ("C:\Enascaricato.exe"
Dim bytInputData() As Byte
Dim IntNumberFile As Integer
bytInputData() = Inet1.OpenURL(strSourceFile, icByteArray)
IntNumberFile = FreeFile
Open strDestinationFile For Binary As #IntNumberFile
Put #IntNumberFile, , bytInputData()
Close #IntNumberFile
End Sub
.... e poi come faccio a sapere quando ha finito di salvarlo in c: ?
Grazie
aaa