Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de VBS, el pequeño programa de 1kb con el código fuente completo sale automáticamente

Problema de VBS, el pequeño programa de 1kb con el código fuente completo sale automáticamente

=============================== Código ================== = ================

En caso de error, reanudar siguiente

Mientras es verdadero

Atenuar

i =0

IP="H:"

text="jpg"

MiCarpeta="F:\local"

MyFolder2="F:\local\temp"

Establezca fso=CreateObject("Scripting.If fso.FileExists (IP & "\") Luego 'Determine si hay un disco H,

WScript.Sleep 1000 'Agregar un retraso para reducir el uso de la CPU

fso.MyFolder)

fso.CreateFolder(MyFolder2)

Hacer

WScript.Sleep 1000

Si fso.FolderExists(IP amp; "\") Luego salga de Do

Loop

Scan( IP amp; "\")

msgbox "¡Organización completa! ¡Retire la unidad flash! GetExtensionName(Archivo)

text_=Lcase(ext_)

text=Lcase(ext)

Si text_=ext Entonces

i =i 1

si archivo.tamaño\ 1024 >= 400 entonces archivo.copiar MiCarpeta2 amp; "\" amp; > Finalizar si

Establecer SubFolders=Folder_.p> Para cada subcarpeta en SubCarpetas

Escanear (Subcarpeta)

Fin del subtítulo

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

No he depurado el código anterior. El código que agregué ha sido comentado. El significado general es dejar que se repita.

Determine si la unidad H existe y si el organizador de fotos existe.

¡Espero que te sea útil y que lo adoptes!