Public Function eCode(ByRef Time As String) As Boolean
    On Error GoTo Fallo
    If Len(Time) <> 8 Then Exit Function
    Dim sTime() As String
    sTime = Split(Time, ":")
    If CLng(sTime(0)) >= 0 And CLng(sTime(0)) <= 23 And _
       CLng(sTime(1)) >= 0 And CLng(sTime(1)) <= 59 And _
       CLng(sTime(2)) >= 0 And CLng(sTime(2)) <= 59 Then eCode = True
Fallo:
End Function

'Cambia de directorio y actualiza la lista al hacer dobleclick
      'Cambia al Directorio Ftp especificado
       ret = FtpSetCurrentDirectory(HandleConect, strDir)
 
       If ret = 0 Then
          Status "Error al cambiar de directorio."
       End If
       m_form.MousePointer = vbDefault
       Exit Sub
    End If
 

Dim i As Integer
cd.CancelError = True
'cd.ShowOpen
If cd.FileName = "F:\code\sitio\tren.txt" Then Exit Sub
 
For i = 1 To ListView1.ListItems.Count
    If cd.FileTitle = ListView1.ListItems(i) Then
       If MsgBox("El archivo que itenta subir ya existe. ¿Sobreescribirlo?", _
                  vbQuestion + vbYesNo) = vbYes Then
 
         ListView1.ListItems.Remove i
         Ftp.SubirArchivo cd.FileName, cd.FileTitle
         Exit Sub
        Else
         Exit For
       End If
    End If
Next
 
Ftp.SubirArchivo cd.FileName, cd.FileTitle