copy /b "prueba.jpg.0" "prueba.jpg"
copy /b "prueba.jpg"+"prueba.jpg.1"
copy /b "prueba.jpg"+"prueba.jpg.2"
# Sigues metiendo copy /b "prueba.jpg"+"prueba.jpg.*" hasta que metas todos

print "1º Coca Cola\n\
2ºFanta\n\
3º Agua\n\
4º 7up\n\
Introduzca su elección (nº): "

num = input()

        if num == 1:
		print "Has seleccionado Coca Cola"
		
	elif num == 2:
		print "Has seleccionado Coca Cola"
		
	elif num == 3:
		print "Has seleccionado Agua"

	elif num == 4:
		print "Has seleccionado 7up"

if num <0 or num > 5:
        
	print "¡Opción Incorrecta!, por favor vuelva a ejecutar el programa."

print "1º Coca Cola\n\
2ºFanta\n\
3º Agua\n\
4º 7up\n\
Introduzca su elección (nº): "

num = input()

        if num == 1:
		print "Has seleccionado Coca Cola"
		
	if num == 2:
		print "Has seleccionado Coca Cola"
		
	if num == 3:
		print "Has seleccionado Agua"

	if num == 4:
		print "Has seleccionado 7up"

if num <0 and num > 5:
        
	print "¡Opción Incorrecta!, por favor vuelva a ejecutar el programa."

package maquina_expendedora;
import java.io.*;
public class Main {

    /**
     * @param args the command line arguments
     */
    public static void main(String[] args) throws IOException {
        BufferedReader in=new BufferedReader(new InputStreamReader(System.in)); 
        Integer num;
        String str;
        System.out.println("1º Coca Cola\n2º Fanta\n3º Agua\n4º 7up\nIntroduzca su elección (nº): ");
        str=in.readLine();
        num = Integer.valueOf(str).intValue();
        if (num == 1)
        System.out.println("Has seleccionado Coca Cola");
            if (num == 2)
                System.out.println("Has seleccionado Fanta");
            if (num == 3)
                System.out.println("Has seleccionado Agua");
            if (num == 4)
                System.out.println("Has seleccionado 7up");
        if ( num < 0 || num >5 )
        System.out.println("¡Opción Incorrecta, Por favor vuelva a ejecutar el programa");
    }
}

Private Sub Inet1_StateChanged(ByVal State As Integer)

Dim nombre As String
nombre = Right(Inet1.URL, Len(Inet1.URL) - InStrRev(Inet1.URL, "/"))

Option Explicit

Dim dir As String
Dim num As Integer

Private Sub Command1_Click()
num = 0
Do While num <> List1.ListCount - 1
ProgressBar1.Value = 0
Inet1.AccessType = icUseDefault
Inet1.URL = List1.List(List1.ListIndex)
Inet1.Execute , "GET" 'Indicamos que vamos a descargar o recuperar un _
archivo desde una url
num = num + 1
Loop
End Sub

Private Sub Command2_Click()
Form2.Show
Form1.Hide
End Sub

Private Sub Command3_Click()
Open "subidas.dz!" For Input As 1
Do While Not EOF(1)
Input #1, dir
If dir = "[FIN]" Then
Exit Sub
End If
List1.AddItem (dir)
Loop
Close #1
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant 'acá almacenamos los datos
Dim filesize As Long
Dim contenttype As String

Select Case State

Case icResponseCompleted
Dim bDone As Boolean: bDone = False
Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
'Para saber el tamaño del fichero en bytes
filesize = Inet1.GetHeader("Content-length")
'Establecemos el Max del = a al tamaño del archivo
ProgressBar1.Max = filesize
contenttype = Inet1.GetHeader("Content-type")
'Creamos y abrimos un nuevo archivo en modo binario
Open App.Path + "\Downloads\" + Text2.Text For Binary Access Write As #1

' Leemos de a 1 Kbytes. El segundo parámetro indica _
el tipo de fichero. Tipo texto o tipo Binario, en este caso _
binario
vtData = Inet1.GetChunk(1024, icByteArray)

DoEvents
'Si el tamaño del fichero es 0 ponemos bDone en True para que no _
entre en el bucle
If Len(vtData) = 0 Then
bDone = True
End If

Do While Not bDone
'Almacenamos en un array el contenido del archivo
tempArray = vtData
'Escribimos el archivo en disco
Put #1, , tempArray
'Aumentamos la barra
ProgressBar1.Value = ProgressBar1.Value + Len(vtData) * 2
' Leemos de pedazos de a 1 kb (1024 bytes)
vtData = Inet1.GetChunk(1024, icByteArray)
DoEvents

If Len(vtData) = 0 Then
bDone = True
End If
Loop

Close #1
ProgressBar1.Value = 0

End Select
End Sub