J'ai une application qui fonctionne partout....... sauf !!! Voilà ce que
l'appli fait entre autre. Dans un repertoire précis, le code doit chercher
le nom du fichier qui s'y trouve obligatoirement. Mais sur les postes d'un
réseau poste à poste, j'ai un message d'erreur!!!
Voilà le code (d'excelabo je crois):
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:\program files\formavoir\"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier) ' L'erreur se produit à cette
ligne !
Y a t'il une autre manière d'avoir le nom du fichier se trouvant dans le
répertoire?
Merci à tous,
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
Michel Voirain avait soumis l'idée :
Bonjour à tous,
J'ai une application qui fonctionne partout....... sauf !!! Voilà ce que l'appli fait entre autre. Dans un repertoire précis, le code doit chercher le nom du fichier qui s'y trouve obligatoirement. Mais sur les postes d'un réseau poste à poste, j'ai un message d'erreur!!! Voilà le code (d'excelabo je crois): Dim fso As Object, Dossier As Object, NomDossier Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject") NomDossier = "C:program filesformavoir" If NomDossier = "" Then Exit Sub Set Dossier = fso.getfolder(NomDossier) ' L'erreur se produit à cette ligne !
Y a t'il une autre manière d'avoir le nom du fichier se trouvant dans le répertoire? Merci à tous,
Michel Voirain
Dim MonFichier As String MonFicfier = Dir("C:program filesformavoir*.*") If MonFichier = "" Then Exit Sub Tout simplement ;-)
-- JLuc
Michel Voirain avait soumis l'idée :
Bonjour à tous,
J'ai une application qui fonctionne partout....... sauf !!! Voilà ce que
l'appli fait entre autre. Dans un repertoire précis, le code doit chercher le
nom du fichier qui s'y trouve obligatoirement. Mais sur les postes d'un
réseau poste à poste, j'ai un message d'erreur!!!
Voilà le code (d'excelabo je crois):
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:program filesformavoir"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier) ' L'erreur se produit à cette
ligne !
Y a t'il une autre manière d'avoir le nom du fichier se trouvant dans le
répertoire?
Merci à tous,
Michel Voirain
Dim MonFichier As String
MonFicfier = Dir("C:program filesformavoir*.*")
If MonFichier = "" Then Exit Sub
Tout simplement ;-)
J'ai une application qui fonctionne partout....... sauf !!! Voilà ce que l'appli fait entre autre. Dans un repertoire précis, le code doit chercher le nom du fichier qui s'y trouve obligatoirement. Mais sur les postes d'un réseau poste à poste, j'ai un message d'erreur!!! Voilà le code (d'excelabo je crois): Dim fso As Object, Dossier As Object, NomDossier Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject") NomDossier = "C:program filesformavoir" If NomDossier = "" Then Exit Sub Set Dossier = fso.getfolder(NomDossier) ' L'erreur se produit à cette ligne !
Y a t'il une autre manière d'avoir le nom du fichier se trouvant dans le répertoire? Merci à tous,
Michel Voirain
Dim MonFichier As String MonFicfier = Dir("C:program filesformavoir*.*") If MonFichier = "" Then Exit Sub Tout simplement ;-)
-- JLuc
ThierryP
Bonjour Michel,
Il me semble qu'il faut supprimer le dernier
Bonjour à tous,
J'ai une application qui fonctionne partout....... sauf !!! Voilà ce que l'appli fait entre autre. Dans un repertoire précis, le code doit chercher le nom du fichier qui s'y trouve obligatoirement. Mais sur les postes d'un réseau poste à poste, j'ai un message d'erreur!!! Voilà le code (d'excelabo je crois): Dim fso As Object, Dossier As Object, NomDossier Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject") NomDossier = "C:program filesformavoir" If NomDossier = "" Then Exit Sub Set Dossier = fso.getfolder(NomDossier) ' L'erreur se produit à cette ligne !
Y a t'il une autre manière d'avoir le nom du fichier se trouvant dans le répertoire? Merci à tous,
Michel Voirain
-- @+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
Bonjour Michel,
Il me semble qu'il faut supprimer le dernier
Bonjour à tous,
J'ai une application qui fonctionne partout....... sauf !!! Voilà ce que
l'appli fait entre autre. Dans un repertoire précis, le code doit chercher
le nom du fichier qui s'y trouve obligatoirement. Mais sur les postes d'un
réseau poste à poste, j'ai un message d'erreur!!!
Voilà le code (d'excelabo je crois):
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:program filesformavoir"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier) ' L'erreur se produit à cette
ligne !
Y a t'il une autre manière d'avoir le nom du fichier se trouvant dans le
répertoire?
Merci à tous,
Michel Voirain
--
@+ thierryp
-----------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet - G. Courteline
J'ai une application qui fonctionne partout....... sauf !!! Voilà ce que l'appli fait entre autre. Dans un repertoire précis, le code doit chercher le nom du fichier qui s'y trouve obligatoirement. Mais sur les postes d'un réseau poste à poste, j'ai un message d'erreur!!! Voilà le code (d'excelabo je crois): Dim fso As Object, Dossier As Object, NomDossier Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject") NomDossier = "C:program filesformavoir" If NomDossier = "" Then Exit Sub Set Dossier = fso.getfolder(NomDossier) ' L'erreur se produit à cette ligne !
Y a t'il une autre manière d'avoir le nom du fichier se trouvant dans le répertoire? Merci à tous,
Michel Voirain
-- @+ thierryp ----------------- Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet - G. Courteline
Michel Voirain
Merci pour vos réponses, je teste cela lundi matin
Michel "Michel Voirain" a écrit dans le message de news:
Bonjour à tous,
J'ai une application qui fonctionne partout....... sauf !!! Voilà ce que l'appli fait entre autre. Dans un repertoire précis, le code doit chercher le nom du fichier qui s'y trouve obligatoirement. Mais sur les postes d'un réseau poste à poste, j'ai un message d'erreur!!! Voilà le code (d'excelabo je crois): Dim fso As Object, Dossier As Object, NomDossier Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject") NomDossier = "C:program filesformavoir" If NomDossier = "" Then Exit Sub Set Dossier = fso.getfolder(NomDossier) ' L'erreur se produit à cette ligne !
Y a t'il une autre manière d'avoir le nom du fichier se trouvant dans le répertoire? Merci à tous,
Michel Voirain
Merci pour vos réponses, je teste cela lundi matin
Michel
"Michel Voirain" <michel.voirain@wanadoo.fr> a écrit dans le message de
news: ungpSOFRGHA.196@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
J'ai une application qui fonctionne partout....... sauf !!! Voilà ce que
l'appli fait entre autre. Dans un repertoire précis, le code doit chercher
le nom du fichier qui s'y trouve obligatoirement. Mais sur les postes d'un
réseau poste à poste, j'ai un message d'erreur!!!
Voilà le code (d'excelabo je crois):
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:program filesformavoir"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier) ' L'erreur se produit à cette
ligne !
Y a t'il une autre manière d'avoir le nom du fichier se trouvant dans le
répertoire?
Merci à tous,
Merci pour vos réponses, je teste cela lundi matin
Michel "Michel Voirain" a écrit dans le message de news:
Bonjour à tous,
J'ai une application qui fonctionne partout....... sauf !!! Voilà ce que l'appli fait entre autre. Dans un repertoire précis, le code doit chercher le nom du fichier qui s'y trouve obligatoirement. Mais sur les postes d'un réseau poste à poste, j'ai un message d'erreur!!! Voilà le code (d'excelabo je crois): Dim fso As Object, Dossier As Object, NomDossier Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject") NomDossier = "C:program filesformavoir" If NomDossier = "" Then Exit Sub Set Dossier = fso.getfolder(NomDossier) ' L'erreur se produit à cette ligne !
Y a t'il une autre manière d'avoir le nom du fichier se trouvant dans le répertoire? Merci à tous,
