Cita:
Iniciado por triump
Gracias. Tengo que digerir este codigo que me pones y ya te comento.

Para que sirve iniciar con sub main??
Con Sub Main no carga ninguna ventana al inicio. Tú programas las ventanas que quieres que aparezcan (colocando en un módulo el Sub Main)...
Estaré ausente por unos días, así que de paso dejo algo que puede ayudarte.
Coloca este código en un módulo:
Código:
Sub Main()
Dim FileName As String
'Aquí vemos si existen archivos en nuestro directorio
FileName = Dir("C:\Tips\Tip*.txt", vbArchive)
If FileName = "" Then
' Si no existe ninguno mostrar una ventana nueva
LoadNewForm EmptyFile("C:\Tips\")
Else
' Si existe mostrar en una ventana el archivo y continuar buscando otros archivos
Do
LoadNewForm "C:\Tips\" & FileName
FileName = Dir
Loop While FileName <> ""
End If
End Sub
Sub LoadNewForm(ByVal FileName As String)
' Con esto mostramos una nueva ventana
Dim Form As Form
Set Form = New Form1
Form.Tag = FileName
Form.LoadFile 'Debes programar Sub LoadFile() en el formulario para que cargue el archivo especificado en Form.Tag
Form.Show
End Sub
Function EmptyFile(ByVal Path As String) As String
'Buscamos el primer archivo que no existe de la cadena Tip1.txt, Tip2.txt, ...
Dim FileName As String
Dim Count As Single
Do
Count = Count + 1
FileName = Dir(Path & "Tip" & CStr(Count) & ".txt", vbArchive)
Loop While FileName <> ""
EmptyFile = Path & "Tip" & CStr(Count) & ".txt"
End Function
Espero que te sea de utilidad.
El resto lo dejo por tu cuenta...
Saludos
P.S.: El código no lo he probado por falta de Visual Basic, si tiene algún error, me avisas.