vbscript - subdirectorios - Quiero crear una carpeta en varias carpetas disponibles

crear carpeta ubuntu comandos

Question

Quiero crear una carpeta en varias carpetas disponibles (por VBScript)

Ejemplo:

Tengo varias carpetas: abc, xyz, ijk ... etc.

• Quiero crear una carpeta como "ABC" en todas las carpetas abc, xyz, tyu, ijk..etc
• A continuación, mueva todos los archivos "jpg" en cada carpeta abc, xyz, tyu, ijk .. a la carpeta "ABC" de cada carpeta que acaba de crear
• Compruebe cada carpeta y vea si la carpeta "ABC" o no, vacía o no

strFolder = "/" ''<== This place how to automatically create a folder "ABC"
'' in the directory available
SET objFSO = CREATEOBJECT("Scripting.FileSystemObject")
''Move file jpg ''<== I do not get it
IF objFSO.FolderExists(strFolder) = FALSE THEN
objFSO.CreateFolder strFolder
wscript.echo "Folder Created"
ELSE
wscript.echo "Folder already exists"
END IF

Answer 1

Para responder la pregunta que fue escrita como una respuesta ...

Dim fso, shl, curdir, folder, file, newfoldername, newfolderpath
Set fso = CreateObject("Scripting.FileSystemObject")
Set shl = CreateObject("WScript.Shell")
curdir = shl.CurrentDirectory
newfoldername = "big"
For Each folder In fso.GetFolder(curdir).Subfolders
newfolderpath = fso.BuildPath(folder.Path, newfoldername)
If Not fso.FolderExists(newfolderpath) Then
fso.CreateFolder newfolderpath
WScript.Echo newfolderpath & " created"
Else
WScript.Echo newfolderpath & " already exists"
End If
For Each file In folder.Files
MoveFile file.Path, newfolderpath
Next
Next
Sub MoveFile(source, destination)
On Error Resume Next
fso.CopyFile source, destination & "/", True '' true = overwrite
If Err Then
WScript.Echo "Error copying " & source & " to " & destination & ": " & Err.Description
WScript.Quit
Else
fso.DeleteFile source, True
End If
On Error GoTo 0
End Sub

El MoveFile actúa como un movimiento regular, es decir, copia el archivo y luego elimina la fuente si tiene éxito. Es mejor que usar la función fso.MoveFile incorporada, ya que esa no maneja la sobreescritura de archivos existentes.

En resumen ... en cada subcarpeta en el directorio actual, vea si existe la subcarpeta / big. Si es así, repita el texto, de lo contrario cree una carpeta y repita el texto. Luego, para cada archivo en esa subcarpeta, muévala a la subcarpeta / carpeta grande, sobrescribiendo los archivos existentes, y elimine el archivo fuente si la copia fue exitosa. Puede agregar cosas para verificar la extensión antes de moverla (para apuntar solo a ciertos tipos de archivos), o salir de sub si el archivo ya existe (para no sobrescribir los archivos existentes).