¡vb se necesita urgentemente! ! ! !

If File1.Selected(I) = True Entonces'if declaración de juicio condicional, si se selecciona el registro con índice i

X = InputBox("¿Agregar a mi álbum?", "Agregar", Archivo2. Seleccionado (I) = True Then'if sentencia de juicio condicional, si se selecciona el registro con índice i

X = InputBox("¿Agregar a mi álbum?, "Agregar", File2.Path "\" File2 & File1.List(File1.ListIndex))'Asigne el valor de retorno del cuadro de entrada a X, el cuadro de diálogo de entrada pregunta "¿Agregar a mi álbum?", la barra de título del cuadro de entrada Nombre "agregar", el valor predeterminado es el. ruta del control de archivos archivo2 archivo2 El nombre del archivo seleccionado en archivo1 (es decir,

If /p>

FileCopy File1.Path amp; IIf(Right(File1.Path, 1) = "\ ", "", "\") amp; File1.List(File1.ListIndex), X' primero explica iif Esta parte: IIf (expr, truepart, falsepart) Parámetros de sintaxis de la función IIf: Si expr es True, el valor o se devuelve la expresión de esta parte. Si expr es False, se devuelve el valor o la expresión de esta parte. Se requiere falsepart. Esta oración significa copiar (copiar archivo) el archivo seleccionado en el archivo1 a la ruta x. p>

End If 'Salir del juicio

End If

Siguiente 'para el siguiente cuadro de bucle, la variable de bucle (i) suma 1, continúa el bucle

Fin Sub