Yo entiendo que no podeis hacer ejercicios obviamente.
Mi codigo hecho hasta el momento es este :
Option Explicit
Dim argsUnnamed,valor,i, salida,entrada,punto,extension
Set salida = wscript.stdout
Set entrada = wscript.stdin
Set argsUnnamed = Wscript.Arguments.Unnamed
Do While Not entrada.AtEndOfStream
valor = entrada.ReadLine
punto = Instr(valor,".")
'salida.writeline " punto encontrado en posicion : " & punto
extension = Mid(valor,punto+1,3)
'salida.writeline " extension encontrado en : " & extension
salida.writeline "" & extension
'if argsUnnamed = extension then
'wscript.writeline " Coinciden "
'end if
'salida.WriteLine(valor.GetExtensionName("rutas.txt"))
Loop
wscript.quit
Que coge la extension del archivo :
c:\fitxer.jpg
c:\fitxer2.jpg
c:\fitxer.doc
c:\alumnes\pere\fotos\andorra.jpg
c:\alumnes\pere\fotos\andorra.gif
c:\alumnes\pere\fotos\resum.pdf
c:\alumnes\pere\fotos\resum-pdf.doc
c:\alumnes\anna\script2.vbs
c:\alumnes\anna\exercici.doc
pero, ahora no se como puedo hacer que pasados argumentos sin nombre y el archivo que pase los buscados en : HaEncontrado.txt
y los que no encuentra en : NoEncontrados.txt
Saludos.
Mi codigo hecho hasta el momento es este :
Option Explicit
Dim argsUnnamed,valor,i, salida,entrada,punto,extension
Set salida = wscript.stdout
Set entrada = wscript.stdin
Set argsUnnamed = Wscript.Arguments.Unnamed
Do While Not entrada.AtEndOfStream
valor = entrada.ReadLine
punto = Instr(valor,".")
'salida.writeline " punto encontrado en posicion : " & punto
extension = Mid(valor,punto+1,3)
'salida.writeline " extension encontrado en : " & extension
salida.writeline "" & extension
'if argsUnnamed = extension then
'wscript.writeline " Coinciden "
'end if
'salida.WriteLine(valor.GetExtensionName("rutas.txt"))
Loop
wscript.quit
Que coge la extension del archivo :
c:\fitxer.jpg
c:\fitxer2.jpg
c:\fitxer.doc
c:\alumnes\pere\fotos\andorra.jpg
c:\alumnes\pere\fotos\andorra.gif
c:\alumnes\pere\fotos\resum.pdf
c:\alumnes\pere\fotos\resum-pdf.doc
c:\alumnes\anna\script2.vbs
c:\alumnes\anna\exercici.doc
pero, ahora no se como puedo hacer que pasados argumentos sin nombre y el archivo que pase los buscados en : HaEncontrado.txt
y los que no encuentra en : NoEncontrados.txt
Saludos.