Problemas de copiar y pegar en lenguaje sencillo

.Haga clic en la subrutina _Botón 1_

.If (copiar carpeta ("D:\youxi\cjsh", "E:\youxi\cjsh", ) = Verdadero)

Cuadro de mensaje ("¡Copiando la carpeta correctamente!", 0, )

En caso contrario

Cuadro de mensaje ("¡Error al copiar la carpeta!", 0). , )

.si final

. Subrutina Copiar carpeta, lógica, pública, devuelve verdadero si tiene éxito, falso si falla

. Parámetros Carpeta copiada, tipo de texto

. Parámetros Carpeta a copiar, tipo texto

. Parámetro para manejar el evento, valor lógico

. Ruta de variable local, tipo de texto

. Variable local, conjunto de carpetas copiadas, tipo de texto, "0"

Texto de la variable local de la carpeta copiada, tipo de texto

. Si es verdadero (buscar archivo (carpeta copiada, # subdirectorio)="")

. Si es verdadero (buscar archivos (carpeta copiada, # archivos de almacenamiento + # archivos de solo lectura + # archivos ocultos + # archivos del sistema) ≠ "")

Volver (copiar archivos (carpeta copiada, carpeta copiada a) )

Si es verdadero, finalice

Devuelve (falso)

. Finalizar si es verdadero

. si es verdadero (crear directorio (copiar a carpeta) = false y buscar archivo (copiar a carpeta, # subdirectorio) = "" y suma de bits (obtener atributos de archivo (copiar a carpeta), # subdirectorio) = 0 Y obtener la longitud del texto ( copiar a carpeta) > 3)

Regresar (falso)

Si es verdadero, finalizar

Ruta = Clip del archivo copiado

. Si es verdadero (lleve el texto a la derecha (ruta, 1) ≠ "\")

ruta = ruta + "\"

.Si es verdadero, final

Unirse a miembros (matriz de carpetas copiadas, "")

Copiar a la carpeta texto = carpeta copiada a

. Si es verdadero (tomar el texto a la derecha (texto copiado de la carpeta, 1) ≠ "\")

El texto de la carpeta copiado = el texto de la carpeta copiado + "\"

. Si es verdadero, final

Devuelve (copiar carpeta (ruta, conjunto de carpetas copiado, texto de la carpeta copiada, si se deben manejar eventos))

.