Foro de elhacker.net

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

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.

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

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

ps la proxima utilizare las etiquetas, perdona

todo perfecto gracias