Hello everyone!
Deep trouble here. I’m using that “GetFile” function to show the user a “select file” dialog. Everything works fine until the user selects a file with accents in it’s name: when it gets to the EmbedObject routine the OS returns that “File not found” error! I have no clue on how I get the bad filename, fix its chars then attach the friggin’ file. Is there any way to do it?
Here’s the piece of my (not realy mine, everyone uses it…) code, so you can get the picture:
'Dim Session As New NotesSession
'Dim FilePathName As String*256
'Dim FilePathTmp As String
'Dim dlgTitle As String
'Dim FileMasks As String
’
'dlgTitle = “Selecione o arquivo a ser anexado:”
'FileMasks = “All Files|.|”
’
’
'If GetFile( 1,FilePathName, FileMasks, dlgTitle) <> 0 Then
’ Print “Arquivo selecionado, verificando versão…” 'Else
’ Print “Nenhum arquivo selecionado, operação cancelada.”
’ Exit Sub
'End If
’
'Erros e exceções tratadas, anexa o arquivo selecionado ao
'documento atual,
'Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, “”,FilePathName, “” )
’
Can anyone help the girl? Boy, I’m so grounded…
Thanks in advance!
Fah