home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / Internet / FreePDF2Fax / Setup.msi / _B0557B9D8F9BCFFF36B1D6B927CECD58 / _65770F088D5556895636632DD9E78F92 < prev    next >
Text File  |  2007-05-07  |  866b  |  31 lines
  1. ' Free PDF2Fax
  2. ' Script PDF Creator
  3. ' Copyright ⌐ ServeurPC 2007
  4. ' Auteur : Julien Schapman
  5. ' Contact : julien.schapman@free.fr
  6. ' Site Web : http://julien.schapman.free.fr/freepdf2fax/
  7.  
  8. Set objArgs = WScript.Arguments
  9.  
  10. If objArgs.Count = 0 Then
  11.     MsgBox "Ce script nΘcessite un paramΦtre !", vbExclamation, AppTitle
  12.     WScript.Quit
  13. End If
  14.  
  15. fichierPDF = objArgs(0)
  16.  
  17. Set fso = CreateObject("Scripting.FileSystemObject")
  18.  
  19. If Ucase(fso.GetExtensionName(fichierPDF)) <> "PDF" Then
  20.     MsgBox "Ce script fonctionne uniquement avec les fichiers PDF !", vbExclamation, AppTitle
  21.     WScript.Quit
  22. End If
  23.  
  24. question = MsgBox("Voulez vous envoyer ce fichier PDF par fax ?", vbYesNo)
  25.  
  26. If (question = 6) Then
  27.     Set WshShell = WScript.CreateObject("WScript.Shell")
  28.  
  29.     WshShell.Run """C:\Program Files\Free PDF2Fax\FreePDF2Fax.exe"" """ & fichierPDF & """"
  30. End If
  31.