Excelentes recursos de programación

Este es muy simple. Déjame darte la implementación más simple.

Guarde el siguiente código como un archivo vbs, luego colóquelo en la carpeta que contiene el directorio de datos y haga doble clic en él.

Cambie los datos del código por otra cosa, es decir, ejecute archivos en otras carpetas.

¿Oscuro? Camino

¿Oscuro? Carpeta

¿Carpeta? =?"Datos"

Ruta = " "

¿Configuración? ¿ws? =?CreateObject("WScript. Shell")

¿Ruta? =?Izquierda(wscript.scriptfullname,instr rev(wscript.script nombre completo,"\"))?

¿Camino? =?¿Camino? y amplificador? Carpeta

Prueba()

sub? Event_Online Salir

WScript.quit?

Renunciar

¿Fin? ¿sub?

¿Función? Prueba()

¿Configuración? fso? =?CreateObject("Objeto del sistema Script.File")

¿Configuración? ¿Carpeta? =?fso. GetFolder(ruta)

getFilesInFolder(carpeta)

¿Fin? ¿Función?

¿Función? getFilesInFolder(carpeta)?

¿Oscuro? Archivo

¿Atenuado? s

¿Oscuro? Nombre de archivo

¿Configuración? ¿documento? =?Carpeta. Documento

¿Para qué? ¿Cada? ¿documento? ¿existir? Archivo

Nombre de archivo = archivo. Nombre

ws.run? ¿camino? y amplificador? "\"?& amplificador? Nombre del archivo

luego

¿finalizar? Función