Italian Controllare aggiornamenti cartella su mediafire

[FreeWolF]

Ciao, vorrei sapere se è possibile creare una piccola applicazione la quale, deve controllare se nel folder di mediafire (quindi un sito) vengono aggiunti degli elementi.
Eventualmente sarebbe bello se tramite una label oppure una textbox venga scritto come si chiama il file dell' elemento aggiunto, ma capisco che non sia una cosa facile (e soprattutto fattibile!), quindi mi basterebbe che ad ogni cambiamento del folder remoto il programma lo avverta.

Esempio, ho 5 file nella directory remota di mediafire:

Pippo1.zip
Pippo2.zip
Pippo3.zip
Pippo4.zip
Pippo5.zip

Ora, il programma dovrebbe vedere che ho 5 elementi.

Aggiungo Pippo6.zip, quindi un sesto elemento, il programma dovrebbe avvertire che c'è stato un cambiamento e notificarlo.

E' possibile creare una applicazione del genere? Ho guardato le librerie http e httputils2 ma non sembra che possano fare al caso mio, o almeno, non credo che abbiano la possibilità di fare la cosa che ho appena scritto....

Grazie mille!!!

 

[Spinter]

il nome è variabile?

 

[FreeWolF]

Si

 

[Spinter]

non so come funziona mediafire ma potresti provare cosi'

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim job1 As HttpJob

End Sub

Sub Globals
    Private Button1 As Button
    Dim test As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
job1.Initialize("Job1", Me)
test=0

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button1_Click
job1.Download("http://www.mediafire.com/Pippo" & test & ".jpg")
End Sub

Sub JobDone (Job As HttpJob)
  If Job.Success = True Then
            test=test+1
            job1.Download("http://www.mediafire.com/Pippo" & test & ".jpg")   
            Log("Ok:" & "Pippo" & test)
  Else
      Log("Error: " & Job.ErrorMessage)
      ToastMessageShow("Error: " & Job.ErrorMessage, True)
  End If
  Job.Release
End Sub

 

[FreeWolF]

Ora provo, grazie mille!!