Discussion :

[Layonne]

Bonjour tout le monde,

Je rencontre actuellement un problème avec une macro pour Outlook en VB6.
Cette macro tourne correctement sous Win Me, Win XP familial mais pas sous Win XP Pro !
Le soucis semble venir l'instruction "Open", en effet à chaque lancement, j'ai une erreur d'execution 53 "fichier introuvable", le débogueur pointe sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open dirLocation For Output As #6

, avec dirLocation le chemin du fichier à créer, en effet il n'existe pas au moment de l'appel de la fonction Open mais selon la doc, cette méthode crée le fichier s'il n'existe pas.

J'ai l'impression qu'il y a des problèmes de droits supplémentaires sous XP Pro pour l'écriture. J'ai écrit un petit script permettant de tester la lecture d'un fichier et il fonctionne.

Quelqu'un a-t-il déjà été confronté à des problèmes de compatibilité sous XP Pro ?

Merci d'avance

[pmoury06]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'pour verifier si repertoire existe 
 
adresse= "c:\mon_repertoire
 
Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
 
    If FSO.FolderExists(adresse) = False Then
        FSO.CreateFolder (adresse)
    End If

[Layonne]

Le problème venait de l'antivirus (Kapersky), j'avais pourtant pensé à désactiver le firewall, et à mettre le niveau de sécu des macros à bas mais pas à désactiver l'antivirus ...

Merci quand même pour ton aide !