Para añadir algo de información a la respuesta de Novlucker he hecho un ejemplo práctico:

EDITO: Justo ahora leí que era para C#, sorry, pero igual te puede servir.

Public Class Form1
 
    ' Creamos dos objetos de tipo {Button} con algunas propiedades :
 
    Dim WithEvents objeto1 As Button = New Button _
    With {.Name = "Boton1", _
          .AutoSize = True, _
          .Tag = "Botoncito 1", _
          .Text = "Soy el botón 1, púlsame!", _
          .Font = New Font("Microsoft Sans Serif", 16, FontStyle.Bold), _
          .Dock = DockStyle.Top}
 
    Dim WithEvents objeto2 As Button = New Button _
    With {.Name = "Boton2", _
          .AutoSize = True, _
          .Tag = "Botoncito 2", _
          .Text = "Soy el botón 2, púlsame!", _
          .Font = New Font("Microsoft Sans Serif", 16, FontStyle.Bold), _
          .Dock = DockStyle.Bottom}
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Asociamos un {evento} de los objetos a un {eventhandler} :
        AddHandler objeto1.MouseDown, AddressOf objeto_Click
        AddHandler objeto2.MouseDown, AddressOf objeto_Click
        ' Añadimos los controles al formulario :
        Me.Controls.Add(objeto1) : Me.Controls.Add(objeto2)
    End Sub
 
    Private Sub objeto_Click(sender As Object, e As MouseEventArgs) ' Handles objeto1.MouseDown, objeto2.MouseDown
 
        ' El objeto que recibe el sender es de tipo {Button}, el sender equivale a uno de nuestros botones :
 
        MsgBox(String.Format("Name: {0}Tag: {1}Text: {2}", _
                             sender.Name & Environment.NewLine, _
                             sender.tag & Environment.NewLine, _
                             sender.Text & Environment.NewLine))
 
        ' Pero en algunos casos querremos convertir el sender al tipo de objeto en cuestión,
        ' por ejemplo en este caso para diferenciar entre un botón y otro :
 
        Dim Boton As Button = CType(sender, Button)
 
        Select Case Boton.Name
            Case "Boton1" ' El botón se llama "Boton1"
                MsgBox("Esto sucede al pulsar el botón: " & Boton.Name)
                ' Código...
            Case "Boton2" ' El botón se llama "Boton2"
                MsgBox("Esto otro sucede al pulsar el botón: " & Boton.Name)
                ' Más código...
        End Select
 
        ' Una muestra de como manejar {e} para el tipo de evento {MouseEventArgs} :
        MsgBox("Pulsaste el botón de tu mouse: " & e.Button.ToString)
 
    End Sub
 
End Class

Saludos.

No me molesta aunque si te fijas esto más bien es un tutorial express, lo del cint, el for y los "tokens", y etc no te habría costado nada encontrarlo en Google xD, de hecho yo estaba usando el Split como si fuese un método porque estoy acostumbrado a eso en el resto d elenguajes, y tuve que Googlear para ver que en VBS Split es una función y por lo tanto se escribe delante.

un saludo.

Es lo que hace la función "Cint", usa "Int" en su lugar.

Por cierto, podrías evitar el uso de if's anidados, no lo soporto, con lo bonito y organizado que queda un Case:

' Variables
Const constante = 0.0417083
 
' Do until qpfile.AtEndOfStream
 
	set qpfile=createobject("scripting.filesystemobject").Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
	qpfile.readline()
 
	'Filtrar linea, para quedarnos con el numero del frame
 	For each token in split(qpfile.readline())
    	tratar(token)
		exit For
	Next
 
' Loop 
 
Wscript.quit
 
'Subrutina para transformar numero entero en timestamp
Sub Tratar(Frame)
 
	'Establecemos criterio de comparación
	calculo  = (Frame * constante)
	p_entera = int(calculo)
 
	Select Case p_entera
 
		Case p_entera >= 216000 'Mensaje de error
			hora=normalizar(calculo)
			msgbox("Error. Un video no puede tener una duracion continua igual a un o mas días.")
 
		Case p_entera >= 3600 'Calculo de timecodes partiendo de horas
			msgbox("hola1")
 
		Case p_entera < 3600 AND p_entera >= 60 ' Calculo de timecodes partiendo de minutos
			min=calculo\60
			seg=calculo mod 60
			ms=round(((((calculo/60)-min)*60)-seg),3)*1000
			msgbox(min & " min. " & seg & " seg. " & ms & " ms. ")
 
		Case p_entera < 60 AND p_entera >= 0 'Calculo de timecodes partiendo de segundos
			msgbox("hola3")
 
		Case ELSE
			msgbox("Error. No pueden existir valores negativos.")
 
	End select
 
End Sub

PD: No lo he testeado, pero ya te haces una idea.

Saludos!

Vamos a ver, no veo que intentes retornar ningún valor ni que tengas planeado hacerlo en un futuro, tal y como lo estás haciendo vas bien, aunque yo lo haría todo dentro del For, pero usa un proc si sigues así ...usa una función si quieres tratar los valores fuera del bloque de la subrutina, en el Ciclo del For.

Óbviamente si deseas "tratar" las variables del proc fuera del proc primero tienes que declararlas...

dim hora
 
sub blabla
   hora = X
end sub
 
msgbox(hora)

saludos

Si el problema es que necesitas saltar la primera línea del archivo pues ejecuta esta instrucción 2 veces:

...
 
qpfile.readline() : linea=qpfile.readline() ' leemos dos lineas, pero nos quedamos con la segunda.
 
For each token in split(linea, " ") ...
...

EDITO: Si no es eso pues da más detalles... pero ten en cuenta antes de preguntar que puedes usar condicionales...

if not "a" = "A" then   : Wscript.Echo "no" : end if
if Instr("a", "a") then : Wscript.Echo "si" : end if

Saludos

Como te ha dicho drvy siempre se copian, y NO SE PUEDE MODIFICAR.

Aquí tienes una alternativa que hice en Ruby:

[RUBY] (APORTE) MoveIt (Complemento para el menú SendTo de Windows)

Es bien fácil de usar y en el post tienes las instrucciones,
la idea fue modificar la ruta en las propiedades de los accesos directos para ejecutar mi aplicación y pasarle como argumento dicha carpeta, y así trabajar con esa carpeta (mover archivos), por esa razón no es necesario crear nuevas entradas como dijo drvy, ni nada parecido, símplemente se ejecuta la aplicación y mueve los archivos, aquí tienes unas imágenes:





PD: Compila el script para que no te muestre la ventana del intérprete de Ruby y listo, todo será "oculto" .

Saludos.

Cualquier cosa que haga Batch se puede hacer en otro lenguaje, y mejor xD :

Set   TextFile = createobject("scripting.filesystemobject").Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
Const Constant = 0.0417083
 
Do Until TextFile.AtEndOfStream 
 
	For Each Token in split(TextFile.readline()) ' Te hago saber que por defecto un token es separado por un "espacio".
 	        Tratar(Token)
	Next
 
Loop
 
Wscript.quit
 
Sub Tratar(Token)
	MsgBox(Token)
End Sub

set qpfile=createobject("scripting.filesystemobject").Opentextfile("C:\Users\Isra\Desktop\Nueva carpeta\10. QPFILE_NAME.qpf",1)
 
Do until qpfile.AtEndOfStream 
 linea=qpfile.readline()
 ' o msgbox(qpfile.readline())
Loop 

saludos

str = "a-b-c-d-e-f"
 
For each token in split(str, "-")
    wscript.echo(token)
next

Saludos

No te preocupes, para lo que necesitas no tienes que aprender casi nada, sólo a usar los operadores aritméticos y escribir una rchivo de texto.

Ejemplo:

num1 = 0.5
num2 = 2
Result = (num1 * num2)
 
Wscript.Echo(Result)
 
Set textfile = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\test.txt", 8, true)
textfile.Write(Result & vbCrLf) : textfile.Close
 
Wscript.Quit(0) 

Saludos