Ayuda de expertos: la programación vbs copia automáticamente mp3 al disco USB.

Lo siento... nunca uso el asistente de botones... ¿por qué usarlo para aprender el script? La gente del grupo dijo que el asistente de botones es una basura... VBS no parece llamar a la función de la aplicación... En cuanto a usar comas para separarlos, también está bien (pero no creo que sea necesario, simplemente es más complicado de ingresar...)...Cambia de la siguiente manera...No importa si lo das o no, no importa quién es el maestro...50 puntos no es tan importante a mí. ...

Si se produce un error, continúe con el siguiente paso

set FSO = createobject(" scripting . file system object ")

D=inputbox ("Ingrese el código de la canción mp3 que desea copiar, por ejemplo: 001002003 "," por: Lo que el viento se llevó").

Ss=inputbox("Ingrese la ubicación de destino", " BY: cayendo ")

Establezca objFile =FSO. OpenTextFile("d:\list.txt", 2, True)

objFile. Escribe d

objFile. Cerrar

Establecer objFile = nada

set fi = FSO open textfile(" d:\list . txt ", 1)

n=fi.readall.

s=split(n, ","")

Para i=0 a 100000

Copiar archivo "d:\MP3\"&s( i) y amp.mp3 ", acero inoxidable

luego

fi.close

Fso.deletefile"d:\list.txt "

El programa pasó la prueba~admite múltiples copias al mismo tiempo. Por ejemplo, si desea copiar 001.mp3, 002.mp3 y 003.mp3, simplemente ingrese 001002003~

Continúe con siguiente paso si hay un error

set FSO = createobject(" scripting . file system object ")

D=inputbox("Ingrese el código de la canción mp3 que desea copiar, por ejemplo: 001002003", "por: Lo que el viento se llevó").

Ss=inputbox("Ingrese la ubicación de destino", "BY: cayendo")

Establecer objFile =FSO. )

objFile. Escribir d

objFile. Cerrar

Establecer objFile = nada

set fi = abrir archivo de texto. (" d :\list.txt",1)

n=fi.readall

Para i=1 a 4000 paso 3

s=mid( n,I , 3)

Si s lt gt entonces déjalo vacío

Copia el archivo "d:\mp3\"amp;s&p.mp3",acero inoxidable

Otro

wscript.quit

Terminará si...

Entonces

fi.close

Fso .deletefile"d：\list.txt "