Objeto Drives
Hola a todos, os pido ayuda sobre los objetos drive.
Tengo una aplicación que tiene que comprobar si un directorio y un arichivo introducido por el usuario existen. El código que intento ejecutar es el siguiente:
Set fl =CreateObject("Scripting.FileSystemObject")
If fl.FolderExists(bd.Recordset("plt_min")) Then
Set dir = fl.GetDrive(bd.Recordset("plt_min"))
If Not dir.IsReady Then
Os explico, todo funciona correctamente hasta que hago el set dir, me dice que el argumento o llamada a procedimeinto no es valido, he intentado especificarle un path, pero también me da error.
Lo que prentendo es mirar si existe y si es valido.
Tengo una aplicación que tiene que comprobar si un directorio y un arichivo introducido por el usuario existen. El código que intento ejecutar es el siguiente:
Set fl =CreateObject("Scripting.FileSystemObject")
If fl.FolderExists(bd.Recordset("plt_min")) Then
Set dir = fl.GetDrive(bd.Recordset("plt_min"))
If Not dir.IsReady Then
Os explico, todo funciona correctamente hasta que hago el set dir, me dice que el argumento o llamada a procedimeinto no es valido, he intentado especificarle un path, pero también me da error.
Lo que prentendo es mirar si existe y si es valido.