consulta vbs imputbox a WScript.Shell

[pichomaus]

hola la situacion es la siguente tengo 900 ficheros powerpoint enumerados 001.pptx a 900.pptx y quero hacer un script para abrirlos con solo escribir el numero pero soy algo verde

Código (vb) [Seleccionar] Expandir

Dim sVariable
sVariable = InputBox("powerpoint")

Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run(svariable, 1, true)

problemas:

si no pongo la extension me da fallo
tengo que poner la ruta entera y que no contenga espacios (ejemplo C:\Program Files asi no va)



[MOD]: Utiliza las etiquetas para insertar código, lee las normas porfavor.

[Eleкtro]

Código (vb) [Seleccionar] Expandir

Set FSO = CreateObject("Scripting.FileSystemObject")

File = AskFile(FSO.GetAbsolutePathName(".\"), ".pptx")

Do Until FSO.FileExists(File)
Msgbox "El archivo no existe: " & File, 16
File = AskFile(FSO.GetAbsolutePathName(".\"), ".pptx")
Loop

WScript.CreateObject("WScript.Shell").Run """" & File & """", 1, False
WScript.Quit(0)

Function AskFile(Directory, FileExt)

Do Until Not FileName = ""
FileName = InputBox("Escribe el nombre del archivo (Ej: 001)", "PowerPoint")
Loop

If Not Len(Filename) > 5 _
  Or Not (LCase(Right(Filename, 5)) = LCase(FileExt)) Then

FileName = FileName & FileExt

End If

AskFile = Directory & "\" & FileName ' FullPath

End Function

Saludos

[pichomaus]

gracias por todo, lo probare cuando llegue a casa, ahora estoy con un mac y no puedo

ps la proxima utilizare las etiquetas, perdona

[pichomaus]

todo perfecto gracias