Resultados 1 al 2 de 2

VBScript : File already exists

Esta es una discusión para el tema VBScript : File already exists en el foro Software, bajo la categoría Tecnologia; Tengo un problema, estoy escribiendo un script para eliminar los folders redundantes. Es decir, convertir C:\Folder\Folder\contenido en C:\Folder\contenido La base ...
Página: 1


  1. #1
    king of pain Staff Avatar de Snake
    Fecha de ingreso
    23 sep, 01
    Ubicación
    Tokyo
    Mensajes
    4,745

    Predeterminado VBScript : File already exists

    Tengo un problema, estoy escribiendo un script para eliminar los folders redundantes.

    Es decir, convertir C:\Folder\Folder\contenido
    en C:\Folder\contenido

    La base de mi script seria esto:

    Código:
    'VBScript
    
    sPath = "D:\TEMP\TEST"             
    DIM FSO : Set FSO = CreateObject("Scripting.FileSystemObject")               
    set oFolder= FSO.GetFolder(sPath)                
    for each oSubFolder in oFolder.SubFolders                
       if oSubFolder.name = oFolder.name Then                
          oSubFolder.name = oSubFolder.name & "_temp"                
          oSubFolder.Move oFolder.ParentFolder & "\"           
          oFolder.delete                
          oSubFolder.name = Left(oSubFolder.name, Len(oSubFolder.name) - 5)  
       end if 
    next
    Pero me falla a la hora de renombrar de regreso en la linea 9.

    Line 9 Char 1 [File already exists]

    Pero no existe porque lo acabo de borrar una linea mas arriba.

    Ya intente con comandos FSO y lo mismo.

    Intente con un if not FSO.FolderExists y este parece que es el unico comando que reconoce que el folder [oFolder] ha sido borrado.

    SubFolder.Count me dice que hay 2 folders. O sea reconoce el borrado como si existiera aun. Pero a la hora de hacer un for loop con para que me arroje los SubFolders, solo me da 1. Claro porque solo hay 1!!!

    No entiendo que hago mal, alguna idea?

    Al final mi recurso fue hacer dos subrutinas, una para mover y borrar y la segunda para renombrar de vuelta. El script funciona, pero me gustaria hacerlo con menos loops.

    Si a alguien le interesa este es el script:

    http://myara.web.fc2.com/Scripts/mRe...derCleaner.vbs
    snake

    X6 1090T | M4N98TD EVO | 16Gb | N460GTX Hawk | SSD C300x2


  2. #2
    king of pain Staff Avatar de Snake
    Fecha de ingreso
    23 sep, 01
    Ubicación
    Tokyo
    Mensajes
    4,745

    Predeterminado Re: VBScript : File already exists

    Ya no importa, lo arregle.

    Tengo que acordarme de re-setear todos los objetos cada vez que modifico sus propiedades. Que vaina, en XSI no tengo que hacer eso...

    El link del script es el mismo
    snake

    X6 1090T | M4N98TD EVO | 16Gb | N460GTX Hawk | SSD C300x2


Temas similares

  1. ¿Te apuntarias a un file sharing?
    Por vandik en el foro Encuestas
    Respuestas: 146
    Último mensaje: 06/07/2012, 01:11
  2. Halo 3 - File Share
    Por paladinsama en el foro Xbox
    Respuestas: 1
    Último mensaje: 19/08/2008, 18:26
  3. Corupted File
    Por atfsm102 en el foro Ayuda Técnica
    Respuestas: 1
    Último mensaje: 07/08/2005, 21:09
  4. server is enforcing file consistency for file p_ump45.mdl
    Por elgaucho en el foro Ayuda Técnica
    Respuestas: 2
    Último mensaje: 24/05/2003, 21:14
  5. Error (file consistency)
    Por harbinger en el foro Ayuda Técnica
    Respuestas: 2
    Último mensaje: 25/06/2002, 16:47

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •