BUSCAR FICHERO INI EN TIEMPO DE EJECUCION

SNKEYES
26 de Abril del 2004
QUISIERA BUSCAR UN FIHCERO DENOMINADO INI QUE SE ENCUENTRA EN LA MISMA CARPETA QUE EL DE EJECUCION. Y ME GUSTARIA QUE LO BUSCARA EN TIEMPO DE EJECUCION MEDIANTE UNA ORDEN.
GRACIAS

sdemingo
26 de Abril del 2004
Dim fs As Object

Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FileExists (App.Path & "/fichero.ini") Then
'El fichero existe
Else
'El fichero no existe
End If

salu2
sdemingo

rodrigogm78
26 de Abril del 2004
prueba con la funcion dir

un ejemplko lcon esto listas todos los archivos ini que haya en la carpeta

Dim archivo As String
archivo = Dir(app.paht & "*.ini")
While archivo <> ""
Print archivo
archivo = Dir
Wend