Soy nuevo en VBscript y quisiera un poco de ayuda en la mudanza de un número específico de archivos de un directorio a otro.

Ahora tengo actualmente un conjunto de 3 archivos(para propósitos de prueba) con diferentes extensiones y quisiera mover todos los archivos si hay exactamente 3 archivos(nada más y nada menos) dentro del directorio de origen. Mi código hasta el momento es:

Set fso=CreateObject("Scripting.FileSystemObject")

Set fldr=fso.getFolder("C:\folderA)
for each file in fldr.files
    If fldr.files < 3 then
            msgbox("Need more files")
    Else
            fso.MoveFile "C:\folderA\*", "C:\folderB"
    End If

Cualquier ayuda sería muy apreciada.
Gracias

InformationsquelleAutor dweebles | 2013-01-15

2 Comentarios

  1. 3
    1. Uso fso.getFolder("C:\folderA").Files.Count para obtener el número de
      archivos en C:\folderA.
    2. Ello antes de – no en un bucle a través de los archivos (mover)
    3. Considere la posibilidad de mover (y re-crear) la carpeta si contiene exactamente 3 archivos
    • Yo sólo intenta que también 🙂 gracias!
  2. 1
    Set FSO=CreateObject("Scripting.FileSystemObject")
    Set fldr= FSO.GetFolder("C:\FolderA")
    Set Collec_Files= fldr.Files
    For Each File in Collec_Files
        If Collec_Files.count < 3 then
          msgbox("Need more files")
        Else
          FSO.MoveFile "C:\FolderA\*", "C:\FolderB"
        End If
    Next

Dejar respuesta

Please enter your comment!
Please enter your name here