FOR /l %%x in ( 0,1,119 ) DO ( echo>%%x.txt )

FOR /l %%x in ( 0,1,119 ) DO ( md %%x )

@echo off
cd C:\xd
FOR /l %%x in ( 0,1,119 )  DO ( move %%x.txt "C:\nueva\%%x" )
pause

@echo off
if exist c:\ICR\DATA\Procesados\1 (goto si) else (goto no)
if exist c:\ICR\DATA\Procesados\2 (goto si) else (goto no)
if exist c:\ICR\DATA\Procesados\3 (goto si) else (goto no)
:si
cd c:\ICR\DATA\Procesados\1
FOR /L %%x in (0,1,119) DO ( md %%x )
cd c:\ICR\DATA\Procesados\2
FOR /L %%x in (0,1,119) DO ( md %%x )
cd c:\ICR\DATA\Procesados\3
FOR /L %%x in (0,1,119) DO ( md %%x )
goto :eof & exit
:no
echo operacion cancelada 
pause

Private Sub Command1_Click()
 Text2 = Replace(Text1, "?v=", "/v/")
End Sub
Private Sub Command2_Click()
Dim Navega As Object
Set Navega = CreateObject("InternetExplorer.Application")
Navega.Visible = -1
Navega.Navigate Text2.Text
Do Until Navega.Busy = False
Loop
End Sub

Private Sub Command3_Click()
 Text4 = Replace(Text3, "swf/l.swf", "get_video")
End Sub

Private Sub Image1_Click()

End Sub
Private Sub Command4_Click()
Dim Navega As Object
Set Navega = CreateObject("InternetExplorer.Application")
Navega.Visible = -1
Navega.Navigate Text4.Text
Do Until Navega.Busy = False
Loop
End Sub