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
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
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
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