Message de Teddy Gestel date 2007-02-22 17:00 :
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.
Le codage indiqué est correct. Voir si le programme a les droits
d'écriture sur le fichier ou le répertoire. Tester avec une autre adresse.
Bonne soirée
Bernard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
