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