No me e explicado bien, os voy enseñar el código batch para que me entendaís
cd Micarpeta\MiSubcarpeta
Esa carpeta cada vez que cambio de ordenador es renombrada por ejemplo
PC 1: 123456.default
PC 2: 4fasdjkt.default
PC 3: 57tgjtekl.default
esa carpeta con nombre aleatorio (salvo el .default) tiene unos archivos que siempre recojo por extensión
xcopy "*.png" "C:\ProgramData" /Y /I
>nul 2
>&1
Y ahora busco hacer lo mismo en VBS e elaborado este pequeño code
Set objShell = CreateObject("WScript.Shell")
Set PV1 = CreateObject("Scripting.FileSystemObject")
Set PV2 = CreateObject("Scripting.FileSystemObject")
PV2.createfolder "C:\ProgramData\Carpeta"
strCommand = "cmd /k cd %appdata%"
strCommand = "cmd /k cd Micarpeta\MiSubcarpeta"
PV1.copyfile "%USERPROFILE%\123456.default\*.png","C:\ProgramData\Carpeta\"
MsgBox "Operación completada",266304
Espero me podaís ayudar y gracias a los anteriores por su colaboración.