• Viernes 15 de Noviembre de 2024, 04:32

Autor Tema:  Re: FileSystemObject  (Leído 890 veces)

Ronstone

  • Miembro activo
  • **
  • Mensajes: 29
    • Ver Perfil
    • http://annyronny.iespana.es
Re: FileSystemObject
« en: Miércoles 26 de Febrero de 2003, 00:36 »
0
He tratado de usar el FileSystemObject pero no funciona cuando corro el programa aparece error, como hago para usar el FSO
Saludos RonStone...

J.M.Movilla

  • Miembro MUY activo
  • ***
  • Mensajes: 427
    • Ver Perfil
FileSystemObject
« Respuesta #1 en: Miércoles 26 de Febrero de 2003, 23:44 »
0
Hola:
Yo lo empleo frecuentemente.  Por ejemplo, para borrar un fichero, con DeleteAFile( Filename) :

Sub DeleteAFile(EspecArch)
    Dim fso
   
    On Error Resume Next
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.deletefile (EspecArch)
End Sub

"On Error Resume Next" lo pongo para evitarme en condicionar si existe el fichero; en el caso de que no exista, no lo borra, claro está, pero no da error...