Problem with 'scripting.filesystemobject' in ACCESS2K
2 réponses
PW
Sub essai()
Set fs = CreateObject("Scripting.FileSystemObject")
'Count the files in the folder.
Set f = fs.GetFolder(strSourcePath) '--------> C'est ici qu'est l'erreur
'Check to see if the folder is empty.
'If so, exit the function.
If f.Files.Count = 0 Then Exit Sub
'Create in the current folder a subfolder
'to place the converted files.
fs.CreateFolder (strSourcePath & "temp-2k")
End Sub
La routine qui précède me donne l'erreur suivante :
Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie.
En fait la variable objet 'fs' reste NOTHING comme si l'objet refusait de se
créer.
Pouvez-vous me donner un piste pour l'explication ?
J'ai bien ajouté Microsoft Scripting Runtime dans les références du Visual
Basic, mais est-ce bien cette référence qui est la bonne ?
"PW" a écrit dans le message de news: 42eb5e03$0$25060$
Sub essai() Set fs = CreateObject("Scripting.FileSystemObject")
'Count the files in the folder. Set f = fs.GetFolder(strSourcePath) '--------> C'est ici qu'est l'erreur
Oui, tu as la bonne référence, mais le problème c'est qu'il faut que tu déclares ton "f" avant de faire un set dessus. Essaie dim F as Folder avant
Arnaud
pgz
Ponjour, Ge crois que, au cas où fs et f ferait bien l'objet d'une déclaration plus haut dans le module, le pb pourrait aussi venir de strSourcePath. Il y a quelque chose dedans? Si ce paramètre est absent ou erroné, l'erreur est sûre. Zalut, et bonne chance pgz
Sub essai() Set fs = CreateObject("Scripting.FileSystemObject")
'Count the files in the folder. Set f = fs.GetFolder(strSourcePath) '--------> C'est ici qu'est l'erreur
'Check to see if the folder is empty. 'If so, exit the function. If f.Files.Count = 0 Then Exit Sub 'Create in the current folder a subfolder 'to place the converted files. fs.CreateFolder (strSourcePath & "temp-2k") End Sub
La routine qui précède me donne l'erreur suivante : Erreur d'exécution '91': Variable objet ou variable de bloc With non définie.
En fait la variable objet 'fs' reste NOTHING comme si l'objet refusait de se créer. Pouvez-vous me donner un piste pour l'explication ? J'ai bien ajouté Microsoft Scripting Runtime dans les références du Visual Basic, mais est-ce bien cette référence qui est la bonne ?
Merci de m'aider.
Ponjour,
Ge crois que, au cas où fs et f ferait bien l'objet d'une déclaration plus
haut dans le module, le pb pourrait aussi venir de strSourcePath.
Il y a quelque chose dedans? Si ce paramètre est absent ou erroné, l'erreur
est sûre.
Zalut, et bonne chance
pgz
Sub essai()
Set fs = CreateObject("Scripting.FileSystemObject")
'Count the files in the folder.
Set f = fs.GetFolder(strSourcePath) '--------> C'est ici qu'est l'erreur
'Check to see if the folder is empty.
'If so, exit the function.
If f.Files.Count = 0 Then Exit Sub
'Create in the current folder a subfolder
'to place the converted files.
fs.CreateFolder (strSourcePath & "temp-2k")
End Sub
La routine qui précède me donne l'erreur suivante :
Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie.
En fait la variable objet 'fs' reste NOTHING comme si l'objet refusait de se
créer.
Pouvez-vous me donner un piste pour l'explication ?
J'ai bien ajouté Microsoft Scripting Runtime dans les références du Visual
Basic, mais est-ce bien cette référence qui est la bonne ?
Ponjour, Ge crois que, au cas où fs et f ferait bien l'objet d'une déclaration plus haut dans le module, le pb pourrait aussi venir de strSourcePath. Il y a quelque chose dedans? Si ce paramètre est absent ou erroné, l'erreur est sûre. Zalut, et bonne chance pgz
Sub essai() Set fs = CreateObject("Scripting.FileSystemObject")
'Count the files in the folder. Set f = fs.GetFolder(strSourcePath) '--------> C'est ici qu'est l'erreur
'Check to see if the folder is empty. 'If so, exit the function. If f.Files.Count = 0 Then Exit Sub 'Create in the current folder a subfolder 'to place the converted files. fs.CreateFolder (strSourcePath & "temp-2k") End Sub
La routine qui précède me donne l'erreur suivante : Erreur d'exécution '91': Variable objet ou variable de bloc With non définie.
En fait la variable objet 'fs' reste NOTHING comme si l'objet refusait de se créer. Pouvez-vous me donner un piste pour l'explication ? J'ai bien ajouté Microsoft Scripting Runtime dans les références du Visual Basic, mais est-ce bien cette référence qui est la bonne ?