Pues viendo un poco Dropbox desde linea de comandos y como ampliación para el ejemplo
del trabajo, estuve creando otro ejemplo en el que te muestra el tiempo que tarda DropBox
en sincronizar tus archivos. Al menos hasta minutos!.
El ejemplo es muy sencillo. Sobre todo hay que conocer la opción "status" de Dropbox.
Para ello tendréis que cerrar antes Dropbox. La aplicación lo iniciara.
(Pueeeees la aplicación podía haber cerrado Dropbox tambien!). Si es que estáis de un vago. Ale que es solo un clic!.
Private i As Integer
Public Sub Button1_Click()
Shell "dropbox start"
Timer1.Delay = 100
Timer1.Start
End
'La primera opción para el timer
' Public Sub Timer1_Timer()
'
' Dim estado As String
'
' formato(i)
' Inc i
' If i Mod 10 = 0 Then
' Shell "dropbox status" To estado
' If Trim(estado) = "Actualizado" Then Timer1.Stop
' Endif
'
' End
'Segunda opción con lectura de la salida estandar
Public Sub Timer1_Timer()
formato(i)
Inc i
If i Mod 10 = 0 Then
Shell "dropbox status" For Read As "Process"
Endif
End
Public Sub formato(t As Integer)
Dim A, B, C, D As Integer
'Minutos
A = (t \ 10) \ 60
'Decenas de segundos
B = ((t \ 10) Mod 60) \ 10
'Unidades de segundos
C = ((t \ 10) Mod 60) Mod 10
'Centésima de segundo
D = t Mod 10
LCDTiempo.Text = Str(A) & ":" & Str(B) & Str(C) & "." & Str(D)
End
Public Sub Process_Read()
Dim estado As String
estado = Read #Last, -256
'Si Dropbox ha acabado de sincronizar paramos el timer
If Trim(estado) = "Actualizado" Then Timer1.Stop
End
Public Sub Button1_Click()
Shell "dropbox start"
Timer1.Delay = 100
Timer1.Start
End
'La primera opción para el timer
' Public Sub Timer1_Timer()
'
' Dim estado As String
'
' formato(i)
' Inc i
' If i Mod 10 = 0 Then
' Shell "dropbox status" To estado
' If Trim(estado) = "Actualizado" Then Timer1.Stop
' Endif
'
' End
'Segunda opción con lectura de la salida estandar
Public Sub Timer1_Timer()
formato(i)
Inc i
If i Mod 10 = 0 Then
Shell "dropbox status" For Read As "Process"
Endif
End
Public Sub formato(t As Integer)
Dim A, B, C, D As Integer
'Minutos
A = (t \ 10) \ 60
'Decenas de segundos
B = ((t \ 10) Mod 60) \ 10
'Unidades de segundos
C = ((t \ 10) Mod 60) Mod 10
'Centésima de segundo
D = t Mod 10
LCDTiempo.Text = Str(A) & ":" & Str(B) & Str(C) & "." & Str(D)
End
Public Sub Process_Read()
Dim estado As String
estado = Read #Last, -256
'Si Dropbox ha acabado de sincronizar paramos el timer
If Trim(estado) = "Actualizado" Then Timer1.Stop
End
El formulario es muy sencillo, prácticamente un cronómetro.
Y aquí el ejemplo.
Saludos
DropBoxTiempo.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | DropBoxTiempo.tar.gz | |
Tamaño: | 12.93 KB | |
Descargado: | 44 veces |
DropBoxTiempo.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | DropBoxTiempo.tar.gz | |
Tamaño: | 12.93 KB | |
Descargado: | 44 veces |
DropBoxTiempo.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | DropBoxTiempo.tar.gz | |
Tamaño: | 12.93 KB | |
Descargado: | 44 veces |