‚¡¢£µ�Öàéìí

@echo off
echo Minusculas:
echo  ‚¡¢£
echo Mayusculas:
echo µ�Öàé
echo La "Y" griega:
echo ìí
pause

@echo off
:p1
echo Introduzca la ruta del archivo
echo.
set /p a=
echo.
If "%a%"=="" Then Goto p1
:p2
echo Introduzca el nuevo nombre
set /p b=
echo.
If "%b%"=="" Then Goto p2
rename %a% %b%
exit

¤

¥

@echo off
echo La ¤ minuscula: ¤
echo La ¥ mayuscula: ¥
pause

 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
Private Sub Form_Load()
Dim CmdStr As String
Dim ReturnVal As Long
CmdStr = "play " & Chr(34) & "e:\media\avi\nombre.avi" & Chr(34)
ReturnVal = mciSendString(CmdStr, 0&, 0, 0&)
End Sub

 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
Private Sub Form_Load()
Dim CmdStr As String
Dim ReturnVal As Long
CmdStr = "play " & Chr(34) & "e:\media\avi\nombre.avi" & Chr(34) " fullscreen"
ReturnVal = mciSendString(CmdStr, 0&, 0, 0&)
End Sub