vbs: ouvrir .doc sans preciser le path?? Fermé

Question

Bonjour tout le monde,

je viens de commencer le VBS et j'ai déja un problème, je veut ouvrir un doc word sans preciser le path. j'explique 

c'est sourtout que le fichier vbs se trouve dans le meme dossier que le doc word (sur mon ordi)

après ce même fichier se trouve sur l'ordi d'autre gens donc pas au même endroit mais avec le même nom.

est ce possible??



Configuration: Windows Vista / Firefox 4.0.1

Utilisateur anonyme · Answer

Bonjour,    

Pas à ma connaisance, dans à peu près tous les    
langages que j'ai utilisé, il faut définir où connaître    
le chemin d'accès [le path]...    

Exemple type, si le fichier à lire est dans le même    
dossier que le fichier vbs :    


'--------------------------------------------------------------------------    
' Fichier Lire.vbs    

  Const ctePourLecture = 1    
  Const ctePourEcrire = 2    
  Const ctePourAjouter = 8    
  Const cteRapport = "Word.doc"    

  Dim objFSO, objFichier, varNomFic, Texte, Message    

  Set objFSO = CreateObject("Scripting.FileSystemObject")    

  ' Localisation du script et du fichier à lire    
  varNomFic = WScript.ScriptFullName    
  varNomFic = Left(varNomFic, InStrRev(varNomFic, "\"))    
  varNomFic = varNomFic & cteRapport    

  If ( objFSO.FileExists(varNomFic) ) Then    
    Set objFichier = objFSO.OpenTextFile(varNomFic, ctePourLecture)    
    While Not objFichier .AtEndOfStream    
        Texte = objFichier .ReadLine    
        Message = Message & vbCrLf & Texte    
    Wend    
    objFichier.Close    

    Set objFichier = Nothing    
  End If    

  Set objFSO = Nothing    

  WScript.Echo Message    

WScript.Quit(0)    
'    
'------------------------------------------------------------------------    
'    


Cdt    

Lupin

LezardMoo · Answer

slut, merci de ta reponse  

quand jexecute le vbs il me retourne le code suivant 800A0401  

ligne 17 caractère 28  
erreur fin d'instruction attendue.  

(j'ai commencé le vbs ce matin)

Vbs: ouvrir .doc sans preciser le path??

2 réponses

Discussions similaires