Cómo extraer el código fuente de la aplicación

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

Continuar si ocurre un error Un paso

Aunque es cierto

Dim i

i=0

IP="H:"

ext="jpg "

MiCarpeta="F:\local "

MiCarpeta2="F:\local\temp "

Establecer fso=CreateObject( "Scripting.FileSystemObject" )

Si fso. El archivo existe (IP amp" \") t Determine si hay un disco H,

WScript. "Sleep 1000" aumenta la latencia para reducir la utilización de la CPU.

fso. Crear carpeta (mi carpeta)

fso. Crear carpeta (MiCarpeta2)

Hacer

WScript. dormir 1000

si fso. La carpeta existe (IP amp"\ ") y luego salga de Do

Ring

Scan (IP amp"\")

Msgbox "¡Organizar! Por favor, desconecte Unidad flash USB. Presione "Aceptar" para continuar seleccionando la siguiente unidad flash USB.

Terminará si...

Dormir 1000' antes de ingresar al siguiente ciclo. p>

OK

Subscan(Folder_)

Continuar con el siguiente paso en caso de error

Establecer Folder_=fso(Folder_)

Establecer file=folder_.file

Para cada archivo en el archivo

GetExtensionName(file)

ext_=Lcase (ext_)

text=Lcase(ext)

Si text_=ext, entonces

i=i 1

si el tamaño del archivo \ 1024 > = 400 entonces copia el archivo. mi carpeta 2 & "\" & "_" & file.name, verdadero

terminará si...

Entonces

Establecer subcarpeta=Carpeta_. subcarpeta

Para cada subcarpeta dentro de la subcarpeta

Escanear(subcarpeta)

Luego

Finalizar conector

= = = = = = = = = = = = = = = = = = = = = = = = = = Fin del código = = = = = = = = = = = = = = = = = = = = = = =

No he depurado el código anterior, pero el código que agregué ha sido comentado, generalmente significa dejarlo circular,

Determinar si hay un disco h, si lo hay. , ordena las fotos, si no, cicla

¡Espero que te ayude, espero adoptarlo!