[Debutant] Script en erreur Résolu

Question

bonjour à tous,
j'ai un souci sur un script tout simple mais qui ne fonctionne pas. J'utilise ce script avec un ETL pour tester la présence de fichiers sur un répertoire distant. 

Sub Start
Set Fso = CreateObject("Scripting.FileSystemObject")
If
  Fso.FileExists("\serveurespdistant\*.TXT")
then
    Rien à faire
   else
   envoi de mail
End If

end Sub

Merci de votre aide

ucfoutu · Accepted Answer

Bon.
J'ignore tout-à-fait quel langage utilise ton "Data Exchanger".
Je n'ai par ailleurs même pas à ma disposition VBS (que j'ai banni de ma machine pour raisons personnelles, dont de sécurité) et t'ai jusqu'à présent répondu de mémoire. 
Tu me dit maintenant que tu ne veux plus filtrer par extension, mais par une partie du nom.

C'est dans ce cas la fonction Instr de VBS qu'il te faut utiliser (car VBS ne connaît pas l'opérateur Like)


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Bonjour,

FsO.FileExists vérifie l'existence d'UN fichier. Et ne saurait donc accepter de caractères génériques ("jokers") dans le chemin passé en paramètre.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_BenMarcel · Answer

Merci pour votre réponse.
Quelle est la solution alors ?

ucfoutu · Answer

La solution est alors de passer en revue tous les fichiers du dossier, d'en extraire leur nom et de ne retenir que ceux dont l'extension correspond, pardi.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_BenMarcel · Answer

merci encore ...
Abuserai je en vous demandant le code ?

ucfoutu · Answer

Abuserai je en vous demandant le code ? 

Ce ne serait pas exactement "abuser", mais presque (et ce ne serait pas te rendre service du tout) 
Je vais donc ici "couper la poire en deux" et te laisser faire un petit minimum, quand même 

Dim dossier,Dim oFSO,fic
Set oFSO = CreateObject("Scripting.FileSystemObject")

dossier = "C:	oto	iti	ata"
If oFSO.FolderExists(dossier) Then
 For each fic in  oFSO.GetFolder(dossier).Files
   'Wscript.Echo fic.Name
' et c'est là que tu vas travailler un peu, hein, plutôt que de te contenter de copier
' tu vas devoir écrire que si l'extension de fic est ".trxt", alors ....

 Next
End If
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_BenMarcel · Answer

Merci beaucoup, je vais me débrouiller ...

cs_BenMarcel · Answer

Bon ben ça ne marche pas ... je me bat avec depuis ce matin ! :( :( :(
Voici mon code :

Dim dossier
Dim oFSO,fic
Set oFSO = CreateObject("Scripting.FileSystemObject")
dossier = "C:\EnAttente"
Ad = 0
If oFSO.FolderExists(dossier) Then
 For each fic in oFSO.GetFolder(dossier).Files
     If fic.Name Like "?Send?" then
       Ad = Ad + 1
     End if
 Next
End if

Je veux ensuite tester la valeur Ad ... mais j'ai un message d'erreur à l'execution ...

Syntax error
>>If
>>   ^^ error is here
Le if est celui qui teste la valeur de Ad 

HELPPPPPPPPPPP

ucfoutu · Answer

Je ne comprend plus ce que tu fais
Tu disais vouloir les fichiers avec extension .txt
Que vient alors faire ici ce Like "?Send?" ?

regarde ce que fait ceci et sers-t'en :
  Dim dossier
  Dim oFSO, fic
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  dossier = "D:\blabla\blabla"
  Ad = 0
  If oFSO.FolderExists(dossier) Then
  For Each fic In oFSO.GetFolder(dossier).Files
    MsgBox oFSO.GetExtensionName(fic)
  Next

Il es par ailleurs clair que dossier ne doit pas être un dossier protégé, hein 

Regarde enfin comment je présente mes bouts de code sur ce forum : indentés et entre balises code. Fais-en autant, s'il te plait (c'est important).
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et par ailleurs :
Sous quoi développes-tu finalement ?
Car l'opérateur Like n'est pas reconnu sous VBS (la présente section).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_BenMarcel · Answer

bonjour,
Je développe sur Data Exchanger et j'inclus un objet VBScript.
Je dois en fait tester la présence de fichiers dans un répertoire. Les fichiers ont tous en commun un identifiant ("Send"). Au départ, je pensais que l'extension suffisait mais en fin de compte, ce n'est pas assez discriminant.
Et désolé pour la présentation du code mais je fais un simple copier coller de mon éditeur et c'est très basique.
Merci

cs_BenMarcel · Answer

merci beaucoup, j'ai enfin réussi !!!

[Debutant] Script en erreur

12 réponses

Votre réponse

Discussions similaires