Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hackoofr]

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

[Invité]

Salut merci pour le lien...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[hackoofr]

\\IP\ ça représente bien une adresse IP oui ou non ?
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

wscript.echo "\\IP\HTA\" & wshNetwork.ComputerName & ".xls"

[Invité]

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

Oui effectivement une adresse IP complète...

[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

désolé pour le bruit

Merci encore