Access 97 et Windows 2000 !!!!
the_phil
Messages postés
25
Date d'inscription
Statut
Membre
Dernière intervention
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour à tous !
désolé de vous solliciter en cette période de ponts !, mais besoin d'aide...
Voici un petit morceau de code Access 97 qui permet de comptabiliser le nombre de fichier commençant par lot, ça fonctionne très bien sous windows 9X et NT mais pas sous win 2000 SP2, et je ne vois pas trop pourquoi !!!!
--------------------------------
With Application.FileSearch
.NewSearch
.LookIn = "F:\donnees\process\spu"
.SearchSubFolders = False
.MatchTextExactly = False
.FileName = "lot.*"
End With
--------------------------------
Si qqll à déjà eu un problème similaire ou sait résoudre le cas présent, ça serait très sympa de m'en faire part.
Merci.
désolé de vous solliciter en cette période de ponts !, mais besoin d'aide...
Voici un petit morceau de code Access 97 qui permet de comptabiliser le nombre de fichier commençant par lot, ça fonctionne très bien sous windows 9X et NT mais pas sous win 2000 SP2, et je ne vois pas trop pourquoi !!!!
--------------------------------
With Application.FileSearch
.NewSearch
.LookIn = "F:\donnees\process\spu"
.SearchSubFolders = False
.MatchTextExactly = False
.FileName = "lot.*"
End With
--------------------------------
Si qqll à déjà eu un problème similaire ou sait résoudre le cas présent, ça serait très sympa de m'en faire part.
Merci.
A voir également:
- Access 97 et Windows 2000 !!!!
- Clé windows 8 - Guide
- Montage video windows - Guide
- Windows ne démarre pas - Guide
- Windows movie maker - Télécharger - Montage & Édition
- Restauration systeme windows 10 - Guide
4 réponses
tu asd un message d'erruer? ou des résultats aberrants? qu'est-ce qui se passe exactement? je vais essayer de reproduire chez moi.
enfin de reproduire l'erreur je veux dire (-:
kinder.surprise,
le maton du matou
enfin de reproduire l'erreur je veux dire (-:
kinder.surprise,
le maton du matou
bon voilà j'ai fait l'essais sous nt et maintenant je reboote sous 2000 (pas de SP, sorry, pas exactement le même environnement)
j'essaye, je regarde et je reviendre...
kinder.surprise,
le maton du matou
j'essaye, je regarde et je reviendre...
kinder.surprise,
le maton du matou
bon voilà, j'ai essayé et je confirme.
MAIS, môôôôsieur, j'ai fait une recherche dans google avec comme mots-clefs
filesearch filename "windows 2000" access
et dans les tous premiers résultats, je tombe sur ça:
http://support.microsoft.com/default.aspx?scid=kb;EN;q259738
faut toujours penser à regarder les moteurs en premier, les foroumes c'est sûr c'est une solution facile mais ce n'est pas forcément la plus rapide!
hein mon ptibonome? (-:
bon leur truc n'a pas l'air bien compliqué, j'ai fait un petit test et ça roule, c'est juste chiant de devoir boucler.
C'est surtout pénible parce que ça oblige à avoir plusieurs versions de la fonction, ce qui est gonflant c'est quand MS sait qu'il y a un problème et qu'au lieu de le résoudre, ils prescrivent fièrement le recours à un truc à deux balles... enfin....
kinder.surprise,
le maton du matou
MAIS, môôôôsieur, j'ai fait une recherche dans google avec comme mots-clefs
filesearch filename "windows 2000" access
et dans les tous premiers résultats, je tombe sur ça:
http://support.microsoft.com/default.aspx?scid=kb;EN;q259738
faut toujours penser à regarder les moteurs en premier, les foroumes c'est sûr c'est une solution facile mais ce n'est pas forcément la plus rapide!
hein mon ptibonome? (-:
bon leur truc n'a pas l'air bien compliqué, j'ai fait un petit test et ça roule, c'est juste chiant de devoir boucler.
C'est surtout pénible parce que ça oblige à avoir plusieurs versions de la fonction, ce qui est gonflant c'est quand MS sait qu'il y a un problème et qu'au lieu de le résoudre, ils prescrivent fièrement le recours à un truc à deux balles... enfin....
kinder.surprise,
le maton du matou
Merci d'avance pour ton essai !
A+
pour tester, rajouter ça après :
With Application.FileSearch
If .Execute() > 0 Then
'parcours de tous les fichiers lots trouvés
For i = 1 To .FoundFiles.Count
'affiche le nom des fichiers trouvés
msgbox .FoundFiles(i)
Next
End if
End With
Encore merci.