tasklist /FI "IMAGENAME eq calc.exe" | findstr PID >nul
IF %ERRORLEVEL% LEQ 0 Ping -n 5 localhost >nul & goto :Comprobar
IF NOT %ERRORLEVEL% LEQ 0 start shutdown /P

Graphics 1024,768,32,2
cantidad_backup#=0
.apagado_automatico
Cls
Locate 0,0
Print "¿Desea que este programa se cierre automaticamente"
Print " al realizar las copias de seguridad?. (S/N)"
finalizacion_automatica$=Input()
If finalizacion_automatica$="S" Or finalizacion_automatica$="s"
	Goto nuevos_directorios_backup
EndIf
If finalizacion_automatica$="N" Or finalizacion_automatica$="n"
	Goto nuevos_directorios_backup
EndIf
Goto apagado_automatico
.nuevos_directorios_backup
Print "Inserte la ruta de origen para realizar el Backup:"
directorio$=Input()
If Not Right$(directorio$,1)="\"
	directorio$=directorio$+"\"
EndIf
Print "Inserte la ruta de destino para realizar el Backup:"
ruta_archivo_destino$=Input()
If Not Right$(ruta_archivo_destino$,1)="\"
	ruta_archivo_destino$=ruta_archivo_destino$+"\"
EndIf
error_dir#=0
.eliminacion_archivos_origen
Print "¿Desea eliminar los archivos de origen?. (S/N)"
dat$=Input()
If dat$="S" Or dat$="s"
	Goto fallo_directorios
EndIf
If dat$="N" Or dat$="n"
	Goto fallo_directorios
EndIf
Goto eliminacion_archivos_origen
.fallo_directorios
Cls
Locate 0,0
If FileType(directorio$)=0 Or FileType(directorio$)=1
	Print "No se ha encontrado el directorio de origen."
	error_dir#=error_dir#+1
EndIf
If FileType(ruta_archivo_destino$)=0 Or FileType(ruta_archivo_destino$)=1
	Print "No se ha encontrado el directorio de destino."
	error_dir#=error_dir#+1
EndIf
If error_dir#>0
	Print "¿Que desea hacer?."
	Print "1) No realizar ningun Backup y salir del programa."
	Print "2) Reinsertar los directorios de origen y destino."
	Print "3) Descartar los ultimos directorios de origen y destino"
	Print "   y copiar los archivos del resto de carpetas."
	opciones#=Input()
	If opciones#=1
		End
	EndIf
	If opciones#=2
		Goto inicio_backup
	EndIf
	If opciones#=3
		Goto nuevos_directorios_backup
	EndIf
	Goto fallo_directorios
EndIf
If cantidad_backup#=0
	Dim listas_directorios$(cantidad_backup#,2)
	listas_directorios$(cantidad_backup#,0)=directorio$
	listas_directorios$(cantidad_backup#,1)=ruta_archivo_destino$
	If dat$="N" Or dat$="n"
		listas_directorios$(cantidad_backup#,2)="0"
	EndIf
	If dat$="S" Or dat$="s"
		listas_directorios$(cantidad_backup#,2)="1"
	EndIf
	cantidad_backup#=cantidad_backup#+1
	Goto dir_backup_anadido
EndIf
If cantidad_backup#>0
	cantidad_backup#=cantidad_backup#-1
	Dim listas_directorios_b$(cantidad_backup#,2)
	For tr#=0 To cantidad_backup#
		For trr#=0 To 2
			daty$=listas_directorios$(tr#,trr#)
			listas_directorios_b$(tr#,trr#)=daty$
		Next
	Next
	cantidad_backup#=cantidad_backup#+1
	Dim listas_directorios$(cantidad_backup#,2)
	cantidad_backup#=cantidad_backup#-1
	For tr#=0 To cantidad_backup#
		For trr#=0 To 1
			daty$=listas_directorios_b$(tr#,trr#)
			listas_directorios$(tr#,trr#)=daty$
		Next
	Next
	listas_directorios$(cantidad_backup#,0)=directorio$
	listas_directorios$(cantidad_backup#,1)=ruta_archivo_destino$
	If dat$="N" Or dat$="n"
		listas_directorios$(cantidad_backup#,2)="0"
	EndIf
	If dat$="S" Or dat$="s"
		listas_directorios$(cantidad_backup#,2)="1"
	EndIf
	cantidad_backup#=cantidad_backup#+1
	Goto dir_backup_anadido
EndIf
.dir_backup_anadido
Cls
Locate 0,0
Print "Se han añadido los nuevos directorios."
Print "¿Que desea hacer?."
Print "1) Realizar las copias de seguridad de los archivos."
Print "2) Añadir un nuevo directorio de origen y de destino."
Print "3) Salir del programa y no realizar ninguna copia de seguridad."
opciones#=Input()
If opciones#=1
	Goto inicio_backup
EndIf
If opciones#=2
	Goto nuevos_directorios_backup
EndIf
If opciones#=3
	.salida_01
	Cls
	Locate 0,0
	Print "¿Realmente desea salir del programa?. (S/N)"
	dat$=Input()
	If dat$="S" Or dat$="s"
		End
	EndIf
	If dat$="N" Or dat$="n"
		Goto dir_backup_anadido
	EndIf
	Goto salida_01
EndIf
Goto dir_backup_anadido
.inicio_backup
cantidad_backup#=cantidad_backup#-1
For tr#=0 To cantidad_backup#
	directorio$=listas_directorios$(tr#,0)
	ruta_archivo_destino$=listas_directorios$(tr#,1)
	mydir=ReadDir(directorio$)
	.base
	archivo_actual$=NextFile$(mydir)
	If archivo_actual$=""
		Print "No se han encontrado mas archivos y/o carpetas."
		Print "Accediendo al siguiente directorio."
		Goto base_1
		End
	EndIf
	ruta_archivo_actual$=directorio$+archivo_actual$
	If FileType(ruta_archivo_actual$)=2
		Print ruta_archivo_actual$
		Print "Se ha detectado una carpeta:"
		Print "Nombre de la carpeta: " + archivo_actual$
		Print "No es posible copiar carpetas con este programa."
		Print "Comprobando el siguiente archivo/carpeta."
	EndIf
	If FileType(ruta_archivo_actual$)=1
		Print "Se ha detectado un archivo:"
		Print "Nombre del archivo: " + archivo_actual$
		ruta_archivo_destino_00$=ruta_archivo_destino$+archivo_actual$
		If FileType(ruta_archivo_destino_00$)=1
			Print "No se puede copiar el archivo:"
			Print "Ya existe un archivo con el mismo nombre"
			Print "en la carpeta de destino."
		EndIf
		If Not FileType(ruta_archivo_destino_00$)=1
			Print "Copiando archivo..."
			CopyFile ruta_archivo_actual$,ruta_archivo_destino_00$
			Print "El archivo se ha copiado con exito."
		EndIf
		If listas_directorios$(cantidad_backup#,2)="1"
			Print "Eliminando archivo de origen...."
			DeleteFile ruta_archivo_actual$
			If FileType(ruta_archivo_actual$)=1
				Print "Error: no se ha podido eliminar el siguiente archivo:"
				Print archivo_actual$
			EndIf
			If Not FileType(ruta_archivo_actual$)=1
				Print "Se ha eliminado el archivo de origen."
			EndIf
		EndIf
		Print "Comprobando el siguiente archivo/carpeta."
	EndIf
	Goto base
	.base_1
Next
Print "Se han realizado todas las copias de seguridad."
If finalizacion_automatica$="S" Or finalizacion_automatica$="s"
	Print "El programa se cerrara en 10 segundos."
	Delay 5000
	End
EndIf
Print "Pulse una tecla para salir del programa."
WaitKey()
End