Busqueda con fso.FolderExists(sArchivo) unando *
Publicado por Juan (1 intervención) el 20/05/2013 17:20:57
Estimados,
les comento estoy usando el FSO para poder saber si una carpeta existe.
El tema, es que inicialmente cuento con solo una parte del nombre de la carpeta (Ejemplo PM 3021) y puede sucer que los usuarios le agreguen datos a esa carpeta (por ejemplo PM 3021 Juan Perez).
He intentado ponerle un asterisco al nombre que busca, pero no me da resultados.
La función que uso es la siguiente:
Public Function Existe(sArchivo As String) As Boolean
Dim fso As Object
'Instanciar el objeto FSO para poder usar las funciones FileExists y FolderExists
Set fso = CreateObject("Scripting.FileSystemObject")
' Comprobar archivo
'Existe = fso.FileExists("c:\windows\notepad.exe")
' Comprobar directorio
Existe = fso.FolderExists(sArchivo)
Set fso = Nothing
End Function
El problema entonces es con el Fso.FoldersExists, que no se banka un * para completar el nombre de la carpeta a buscar....muchas gracias !!!
Juan
les comento estoy usando el FSO para poder saber si una carpeta existe.
El tema, es que inicialmente cuento con solo una parte del nombre de la carpeta (Ejemplo PM 3021) y puede sucer que los usuarios le agreguen datos a esa carpeta (por ejemplo PM 3021 Juan Perez).
He intentado ponerle un asterisco al nombre que busca, pero no me da resultados.
La función que uso es la siguiente:
Public Function Existe(sArchivo As String) As Boolean
Dim fso As Object
'Instanciar el objeto FSO para poder usar las funciones FileExists y FolderExists
Set fso = CreateObject("Scripting.FileSystemObject")
' Comprobar archivo
'Existe = fso.FileExists("c:\windows\notepad.exe")
' Comprobar directorio
Existe = fso.FolderExists(sArchivo)
Set fso = Nothing
End Function
El problema entonces es con el Fso.FoldersExists, que no se banka un * para completar el nombre de la carpeta a buscar....muchas gracias !!!
Juan
Valora esta pregunta
0