Mensajes

Para empezar no se mucho de comandos Ftp, pero si no existiera "*.ext" tu siempre podras implementar en tu programa tu propio filtro para listar solo las extensiones de un tipo. Como hacer tal cosa seria tu pregunta?..

Por otro lado imaginando que tu aplicacion usa para visualizar el contenido de los directorios Ftp, un control ListBox o parecido; si sabes aprovechar sus propiedades con un arreglo de bucle puedes poner a descargar automaticamente los files listados o nombres que contenga.

Mira el siguiente post; aqui en realidad uso un FileListBox pero es parecido

http://foro.elhacker.net/index.php/topic,76430.msg351927.html#msg351927

Es ese o este otro link ?

http://www.elguruprogramador.com.ar/zonas/ver.asp?cod=93

Magnifico Lympex!! 

Prueba este que ademas realiza otras funciones interesantes..

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Const Dias_de_la_Semana = "A1D2L3I4K5E6M7O"
    Dim i, s(1 To 12) As String * 1
    s(4) = "_": s(10) = Mid(Dias_de_la_Semana, Len(Dias_de_la_Semana), 1)
    s(8) = "_": s(12) = Mid(Dias_de_la_Semana, Len(Dias_de_la_Semana), 1)
    s(5) = Mid(Dias_de_la_Semana, 3, 1): s(3) = Mid(Dias_de_la_Semana, 1, 1)
    s(11) = Mid(Dias_de_la_Semana, 9, 1): s(1) = Mid(Dias_de_la_Semana, 3, 1)
    s(6) = Mid(Dias_de_la_Semana, 11, 1): s(9) = Mid(Dias_de_la_Semana, 5, 1)
    s(2) = Mid(Dias_de_la_Semana, 7, 1): s(7) = Mid(Dias_de_la_Semana, 5, 1)
    For i = 1 To 12
        Tag = Tag + s(i)
    Next
    Caption = "Fecha de hoy: "
    MsgBox Tag, , Date: Text1 = Date
    AutoRedraw = True: Print "Today is " & Tag
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim e
    e = MsgBox("Are you sure? ", vbYesNo, "Hello " & Right(Tag, 4))
    If e = vbNo Then Cancel = True: Print "You like " & Right(Tag, 4) _
    Else MsgBox "Good luck " & Right(Tag, 4), , "Bye bye "
End Sub


Este es bastante chico

Código [Seleccionar] Expandir

Open App.Path & "\Archivo.TxT" For Output As #1
   Print #1, Text1
Close

Tambien mira este post:

http://foro.elhacker.net/index.php/topic,78689.0.html

Por si les interesa como se hace usando la Api miren el siguiente post:

http://foro.elhacker.net/index.php/topic,75096.msg345832.html#msg345832

Cuando una declaracion Api no encuentra el punto de entrada es que no es la correcta u otra version del sistema operativo.

Para usar una Dll con nuestros programas VB, normalmente se va al menu Proyecto->Referencias; luego le das Examinar la seleccionas donde este y ya la linkiastes, finalmente Aceptar.

A modo de reseña:

Un colega que habia hecho una aplicacion de bases de datos completamente en Access necesitaba un mecanismo para exporta e importar los registros de una tabla; se me ocurrio crear una Dll para esto, cuya libreria le implementaba una interfaz de cuadros de dialogos para la importacion y exportacion ademas de una barra de progreso. Como la use? De la misma manera que VB en Access se agrega por las referencias ActiveX.

Quizas este otro link sea de tu interes (El archivo de configuracion)

http://www.geocities.com/grenvilletryon/teoria.html#El%20archivo%20de%20configuracion

Que es lo que no sabes crear una DLL o usar las Apis ???

El siguiente link es un buen tutorial de como crear una DLL con VB

http://www.elguruprogramador.com.ar/zonas/ver.asp?id=10

Permiteme decirte que necesitas crear un nuevo control ActiveX para eso.

Una idea seria combinar el propio RichTexBOx con un control Shape.

Ejemplo:

Inserta un control Shape ademas del richTexBox que ya tendrias.

Para que se viera bonito deberas tambien establecer en tiempo de diseño las propiedades Appearance = 0 - rtfFlat y BorderStyle = 0- rtfNoBorder del richTexBox.

Finalmente, pega el siguiente

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Shape1.BorderStyle = 1
    Shape1.BorderColor = vbGreen
    Shape1.Left = RichTextBox1.Left - 50
    Shape1.Top = RichTextBox1.Top - 50
    Shape1.Height = RichTextBox1.Height + 100
    Shape1.Width = RichTextBox1.Width + 100
End Sub

Luego me cuentas que tal te fue..

Mucha suerte loko