Salut à tous et d'avance merci à ceux qui essayeront de m'aider.
 
Je fais un petit script en VBS dans lequel j'ai besoin de tester si un fichier existe.
Et en cherchant sur google, je n'ai rien trouvé de simple et rapide pour le faire.
 
Ce que j'ai de plus simple pour le moment, c'est essayer de lire le fichier et si j'arrive à l'ouvrir, c'est qu'il existe.
 
C'est juste ca.  
 
merci

bon, ben je vais me cacher tellement c'était con

Certes, mais je suis sur qu'il va maintenant poser la question " S'il existe et que je veux le deleter ! "....
 
Alors voilà
 
Set Fso= WScript.CreateObject("Scripting.FileSystemObject" )
 
If Fso.FileExists("C:\Le_beau_fichier.txt" ) Then
  ' Soit tu l'ouvres ( 8 pour ajout en fin de fichier )
  Set ObjFile = Fso.Opentextfile("C:\Le_beau_fichier.txt",8)  
  ' Soit tu le delete
  Set ObjFile = Fso.GetFile("C:\Le_beau_fichier.txt" )  
  ObjFile.Delete
Else
  ' S'il n'existe pas tu le créés
   Set ObjFile = Fso.createtextFile("C:\Le_beau_fichier.txt" )  
End If
 
Voilà ca t'évituras de poser la question !
 
Fred

ben non en fait, si il existe il faut que j envoye un mail, car c'est un fichier généré pour enregistrer les erreurs d'un traitement
 
Mais pour envoyer un mail, je sais comment faire
 
merci

Ah c'est génial !  
C'est pil poil ce qui me fallait !!    
 
Merci les filles !

bonjour,  
j'aimerai savoir comment copier un fichier présent sur un serveur vers un PC local avec les droits d'administrateurs, vue que le user n'a pas les droits pour copier un fichier sur son poste

en faite la maintenant mon probleme est d'installer un logiciel avec un script contenant les droits d'administrateur :
quelqu'un a une idée ??
j'essaye sa mais sa fonctionne pas :
 
Const wbemImpersonationLevelDelegate = 4
 
Set objwbemLocator = CreateObject("WbemScripting.SWbemLocator" )
Set objConnection = objwbemLocator.ConnectServer _
    ("serverX", "root\cimv2", "domaine\administrateur", _
        "password", , "kerberos:serverX" )
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate
 
Set objSoftware = objConnection.Get("Win32_Product" )
errReturn = objSoftware.Install("\\serverX\logiciel\ABCDE.exe", , True)

C'est exactement le code dont j'ai besoin    
Merci à tous !  
 
Yannick

 
de même pour oim  

tu n'as pas honte de déterrer des topics comme ca ?
remercie en PM, ca fait tout aussi plaisir  

 
ok je ne le ferai plus

et ca sert encore en 2010. Merci

... et même en 2011. Le référencement google n'y est pas pour rien :-)

excellent    
 
 
 
 

Du coup je valide, utile en 2012.

2013 aussi !  

un plaisir qui dure  

Bon bah je valide son utilité pou 2014  

Decidement

Toujours utile en 2015...