Execute Method (FileSearch Object)

bugalanoz
Messages postés
10
Date d'inscription
mercredi 16 juillet 2003
Statut
Membre
Dernière intervention
13 mai 2004
- 13 mai 2004 à 16:58
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
- 13 mai 2004 à 18:39
Bonjour,

Je ne comprends pas pourquoi le code ci-dessous ne fonctionne pas bien sous visual basic 6.0 d'Access alors que ca fonctionne pour un ami sur un autre PC. Ca bloque au niveau du ".Execute" (Msg d'erreur : invalid procedure call or argument)

En fait, la fonction AttenteFichier s'éxécute tant que le fichier Fin.txt n'existe pas dans le répertoire D:\VSAT\Projet Alert.

---------------------------------------------------------
Function Principal()

Call AttenteFichier("D:\VSAT\Projet Alert", "Fin.txt")

End Function
---------------------------------------------------------
Function AttenteFichier(Répertoire, Fichier) As String

With Application.FileSearch
Do
.NewSearch
.LookIn = Répertoire
.FileName = Fichier
Loop While .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) = 0
End With

End Function

bugalanoz

1 réponse

crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
13 mai 2004 à 18:39
Voici un extrait du MSDN qui peut peut-êter t'éclairer :
----------------------------------------------------------------------
Arguments nommés interdits
Lesarguments nommés ne sont pas permis dans toutes les situations. Causes et solutions de cette erreur :

Vous avez tenté de spécifier un argument nommé comme index detableau, par exemple :
MyVar = MyArray(MyNamedArg := 1)

Utilisez unevariable ordinaire ou uneexpression constante comme index de tableau.

Vous avez tenté de spécifier un argument nommé avec un objet, par exemple :
MyVar = MyObject(MyNamedArg := 1)

Utilisez une variable ou une expression constante si l'objet nécessite unargument. Par exemple, si la valeur par défaut d'un objet est uneméthode, le nom de l'objet représente la méthode par défaut. S'il nécessite des arguments, spécifiez-les par position.

Vous avez tenté de spécifier un argument nommé avec un nom externe :
MyVar = [MyName](MyNamedArg := 1)

Utilisez une variable ordinaire ou une expression constante si le nom externe a besoin d'un argument.

Vous avez tenté de spécifier un argument nommé avec un membre de données d'un objet, par exemple :
MyVar = [MyObject].MyProperty(MyNamedArg := 1)

Utilisez une variable ordinaire ou une expression constante si le membre de données a besoin d'un argument.

Pour plus d'informations, sélectionnez l'élément en question et appuyez sur F1.
----------------------------------------------------------------------

Christophe R.
0