Vérifier si exist

Version imprimable

Vérifier si exist

Bonjour

Mon petit script évolue j'aimerais maintenant faire une vérification si le fichier existe avant la sauvegarde...ce qui m'embête c'est le chemin a définir...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub RunScript Set wshNetwork = CreateObject("Wscript.Network") strAnswer = window.prompt("Please enter the Location to save.", "\\IP\HTA\" & wshNetwork.ComputerName & ".xls") If IsNull(strAnswer) Then Msgbox "Vous avez cancellé l'opération" Else Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CreateTextFile(strAnswer) Set objFile = objFSO.OpenTextFile(strAnswer, 2) objFile.WriteLine Data.InnerHTML objFile.Close Msgbox "Sauvegardé." End If End Sub
Comment faire une vérification avec "\\IP\HTA\" & wshNetwork.ComputerName & ".xls"

Merci pour l'aide

27/06/2012, 20h08
hackoofr

:salut:
un coup d’œil sur la :faq: Comment tester l'existence d'un fichier ?

Salut merci pour le lien...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub RunScript
   Set wshNetwork = CreateObject("Wscript.Network")
	strAnswer = window.prompt("Please enter the Location to save.", "\\IP\HTA\" & wshNetwork.ComputerName & ".xls")
Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists("\\IP\HTA\" & wshNetwork.ComputerName & ".xls")Then
    MsgBox "fichier exist"
 
Else
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CreateTextFile(strAnswer)
    Set objFile = objFSO.OpenTextFile(strAnswer, 2)
    objFile.WriteLine Data.InnerHTML
    objFile.Close
  Msgbox "Sauvegardé."
  End if
 
  End Sub

J'ai essayé tout plein de combinaison, mais je suis nul en logique...avec ce que j'ai suis-je proche?

28/06/2012, 14h03
hackoofr

:salut:
\\IP\ ça représente bien une adresse IP oui ou non ? :koi:
Quand vous déboguez un programme il préférable d'ajouter toujours des Msgbox ou wscript.echo
donc ajoutez dans votre code cette ligne :

Code:

wscript.echo "\\IP\HTA\" & wshNetwork.ComputerName & ".xls"
28/06/2012, 14h05
Invité

Citation:

Envoyé par hackoofr

:salut:
\\IP\ ça représente bien une adresse IP oui ou non ? :koi:

Oui effectivement une adresse IP complète...
28/06/2012, 14h25
Invité

lol je viens de me rendre compte de l'erreur...merci pour l'idée du MsgBox...je me suis rendu compte que le fichier était sauvegardé dans un autre répertoire de celui que je regardais :(

Finalement mon code fonctionne correctement :P

désolé pour le bruit

Merci encore