Set FSO = CreateObject("Scripting.FileSystemObject")
 
For Each File In FSO.GetFolder(".\").Files
	If LCase(FSO.GetExtensionName(File.Name)) = "qpf" then
		Wscript.echo(File.Name)
	end if
Next

Public wavefile As New NAudio.Wave.WaveFileReader("C:\Archivo.wav")

        namespace NAudioDemo.AudioPlaybackDemo
 
        this.fileWaveStream = plugin.CreateWaveStream(fileName);
        var waveChannel =  new SampleChannel(this.fileWaveStream, true);
        this.setVolumeDelegate = (vol) => waveChannel.Volume = vol;
        waveChannel.PreVolumeMeter += OnPreVolumeMeter;
 
        var postVolumeMeter = new MeteringSampleProvider(waveChannel);
        postVolumeMeter.StreamVolume += OnPostVolumeMeter;

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

' 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

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

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

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

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