Bonjour,
Ajoute dans ton code, avant le "openFileWrite",
msgBox(the_file)
Tu auras alors le nom du fichier qu'OO n'arrive pas à ouvrir,
précédé de "file://" (puisque ça doit être une URL).
Vérifie alors que le chemin est bien complet et comme
l'a siganlé Bernard, que les droits en lecture sont corrects
sur le fichier et le répertoire.
Cdlt,
Emmanuel
De : Teddy Gestel [mailto:tedd...@implicit.com]
J'ai un petit soucis et je voudrais avoir votre avis sur ce bug :
Voici mon code :
Dim oFileAccessService, oTextOutputStream, outStream
Dim the_file
oFileAccessService =
createUnoService("com.sun.star.ucb.SimpleFileAccess")
oTextOutputStream =
createUnoService("com.sun.star.io.TextOutputStream")
the_file = convertToURL(sChem)
outStream = oFileAccessService.openFileWrite(the_file)
Quand j'execute ce code, à la dernière ligne
oFileAccessService.openFileWrite(the_file) , j'ai le message :
Runtime Error BASIC
Exception
Type : com.sun.star.ucb.ContentCreationException
Message: Unable to create Content
Or le fichier existe bel et bien.
A quoi cela peut il correspondre ? Et comment peut on éviter cela ?
Merci pour votre aide