Discussion :

[Hub3rt]

Bonjour

Je souhaite créer une script qui me fait un test de fichier à un emplacement donné. Seulement, un bout du chemin d'accès dépend de l'utilisateur.

Je récupère ce nom sans problème, en revanche quand je l'insère en paramètre cela ne fonctionne pas.

Code :

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

1
2
3
4
5
6
Set net = Wscript.CreateObject("WScript.Network")
Set oFSO = CreateObject("Scripting.FileSystemObject" )
 
wscript.echo "C:\user\"&net.username&"\AppData\Roaming\Schlumberger\test\Configuration.xml"
 
oFSO.DeleteFile ("C:\user\"&net.username&"\AppData\Roaming\Schlumberger\test\Configuration.xml")

Comme on peut le constater si vous le jouez, la fenêtre affiche bien le bon nom, en revanche, une fois qu'il tente de supprimer le fichier, j'ai une fenêtre qui m'indique qu'il est impossible de trouver le fichier.

[l_autodidacte]

Et si tu essaies avec ce

Code :

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

oFSO.DeleteFile oFSO.GetFile("C:\user\"&net.username&"\AppData\Roaming\Schlumberger\test\Configuration.xml")

[Hub3rt]

L'insertion du get ne change rien. Toujours ce souci de fichier introuvable. : /

[l_autodidacte]

Le chemin est-il correct ?
Le fichier existe-t-il réellement?
L'UAC est-il activé? c'est peut-être ça la cause.

[Hub3rt]

Le chemin est-il correct ? -- > Oui
Le fichier existe-t-il réellement? --> Oui, je l'y ai mis pour vérifier l'exécution justement
L'UAC est-il activé? c'est peut-être ça la cause. --> Oui mais les utilisateurs ont un contrôle total sur ce dossier.

[ProgElecT]

Salut
Des fois, cela vaut peut être le coup d'essayer

Code :

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

oFSO.DeleteFile ("C:\user\"&net.username&"\AppData\Roaming\Schlumberger\test\Configuration.xml", True)

Scripting Runtime Library

DeleteFile, méthode
Supprime un fichier spécifié.

object.DeleteFile ( filespec[, force] );
Arguments
object
Requis. Doit toujours correspondre au nom d'un objet FileSystemObject.
filespec
Requis. Nom du fichier à supprimer. filespec peut contenir des caractères génériques dans le dernier composant de chemin.
force
Facultatif. Valeur booléenne qui est true lorsque des fichiers en lecture seule doivent être supprimés et false (valeur par défaut) dans le cas contraire.
Note
Une erreur se produit si aucun fichier correspondant n'est trouvé. La méthode DeleteFile s'arrête à la première erreur qu'elle rencontre. Aucune tentative n'est faite en vue de restaurer ou d'annuler les changements effectués avant que l'erreur ne se produise.

[Hub3rt]

Bonjour,

Merci pour ce test, hélas j'ai une erreur sur le script.

Visiblement, il n'accepte pas l'argument.

[l_autodidacte]

Le message est bien clair :
Au lieu de oFSO.DeleteFile ("C:\user\" & net.username & "\AppData\Roaming\Schlumberger\test\Configuration.xml", True).
il faut mettre : oFSO.DeleteFile "C:\user\" & net.username & "\AppData\Roaming\Schlumberger\test\Configuration.xml", True

[Hub3rt]

Ah punaise ! Au temps pour moi, c'est lundi tout ça, tout ça...

Du coup, je récupère ma fenêtre et mon "fichier introuvable". : /

[ProgElecT]

Salut

Ah punaise ! Au temps pour moi, c'est lundi tout ça, tout ça...

Du coup, je récupère ma fenêtre et mon "fichier introuvable". : /

C'est bon ou pas , car en lisant et relisant plusieurs fois ton dernier message, je ne suis pas sûr que le problème soit complétement solutionné .

Si c'est résolu, bouton en bas de page de la discussion, merci.

[Hub3rt]

Bonjour,

désolé si mon message manque de clarté.

Non, ce n'est pas réglé, et je n'arrive pas à tourner le problème dans un autre sens.

Pensez-vous que si l'attribut d'un des dossiers du chemin, est caché, cela puisse poser problème ?

[pitchalov]

Bonjour,

Et en rajoutant quelques tests supplémentaires ?

Code :

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

1
2
3
4
5
6
7
8
9
Set net = Wscript.CreateObject("WScript.Network")
Set oFSO = CreateObject("Scripting.FileSystemObject" )
strFilePath =  "C:\user\"&net.username&"\AppData\Roaming\Schlumberger\test\Configuration.xml"
If oFSO.FileExists(strFilePath) Then
  WScript.Echo "Suppression du fichier <" & strFilePath  & ">"
  oFSO.DeleteFile strFilePath  
Else
  WScript.Echo "Fichier <" & strFilePath & "> inexistant"
End If

Je ne pense pas que ça change pour des fichiers cachés.
Sinon, le compte exécutant le script a bien les droits pour voir / supprimer le fichier?

Bonne continuation.

[Hub3rt]

Oh punaise j'ai trouvé...

C'était le chemin, il manque un "s" à "C:\User"...

Merci pour votre aide à tous.