Obtenga todos los archivos del tipo especificado en el directorio especificado en el cuadro de lista.
.Biblioteca compatible iext
.Biblioteca de Internet compatible
.Biblioteca de especificaciones compatible
.Subrutina subrutina 1
Cuadro de súper lista 1. eliminar todo ()
Número de directorios = lista de directorios FTP (cuadro de edición remoto. Contenido, lista de directorios, atributos del directorio, tamaño del directorio, tiempo del directorio)
Evento de manejo ()
Entrada de tabla = SuperListBox1.Insertar entrada de tabla (, , , , )
SuperListBox1.Place Título (Entrada de tabla, 0, "Directorio superior" )
Super Listbox 1. Establecer imagen (elemento, 0, 8)
Salida de depuración (FTP obtiene el directorio actual ())
Primero calcule el ciclo. (número de directorios, n1)
Determinar el inicio (atributo de directorio [n1] = 16)
Entrada de tabla = SuperListBox1.InsertTableEntry (, , , )
.Tamaño de archivo = Tamaño de extracción (DirectorySize [n1])
Atributos de archivo = Tipo de archivo de extracción (DirectoryList [n1])
SuperListBox1.InsertTableEntry (, , , , )
.Caption (Entrada, 2, Tamaño de archivo)
SuperListBox1.Caption (Entrada, 3, a texto (Hora del directorio [n1]))
SuperListBox1 . PlacePicture (entrada de tabla, 0, 1)
.Predeterminado
.Fin del juicio
.Fin del ciclo de conteo ()
Cuente la primera vez del bucle (número de directorios, n1)
Determine el inicio (atributo de directorio [n1] ≠ 16)
Elemento de la tabla = SuperListBox1.InsertTableItem (,. , , , )
Tamaño de archivo = obtener tamaño (tamaño de directorio [n1])
Atributos de archivo = obtener tipo de archivo (lista de directorios [n1])
SuperListBox1.Title (TableItem, 2, tamaño de archivo)
.p> SuperListBox1.PutTitle (Entrada de tabla, 3, a texto (DirectoryTime [n1])
SuperListBox1.PutTitle (Tabla entrada, 0, a texto (DirectoryList [n1]))
SuperListBox1.PutTitle (entrada de tabla, 1, FileAttributes)
SuperListBox1.PutPicture (entrada de tabla, 0, a imagen ( FileAttributes))
.
.)
.Default
. Termina el juicio
. Fin del bucle de conteo()