Power Builder - Problema al generar directorio y documento

hola a todos tengo un problema lo que quiero es lo sgt tengo un APlicativo que genera documentos
en word. entonces lo que quiero hacer es lo sgt que al momento de generar el word
me genere un directorio con el nombre del documento y me grabe ese documento dentro del directorio generado
yo hice lo sgt pero siempre me habre el directorio mi documentos alguien sabe aque se debe otra pregunta hay alguna manera de controlar si un directorio existe y solamente generara el documento y no el directorio enc aso contraio que lo genere
aqui les pongo el codigo

por ejemplo
yo genero una carta CA200611
ME TIENE QUE GENERAR UN DIRECTORIO :CA200611
Y UN FILE :CA200611.DOC

string ls_patch = "D:\CARTAS
string ls_file_directorio,ls_new_directory

ls_file_directorio ='Factura' + gs_nrofactura
ls_new_directory =ls_patch + ls_file_directorio

ls_dir = getcurrentdirectory()
li_filenum = ChangeDirectory( ls_patch )
li_filenum = CreateDirectory(ls_file_directorio)
li_filenum = ChangeDirectory(ls_dir)

this.triggerevent('ue_genera_tablas_word')

GetFileSaveName("Select File", ls_file_directorio, ls_new_directory, "DOC", "Formato en WORD (*.DOC),*.DOC")
ole_object.ActiveDocument.SaveAs(ls_file_directorio)
Messagebox("Mensaje","El archivo se grabó en la siguiente ruta: " + ls_file_directorio)
ole_object.quit(0)
ole_object.DisconnectObject()
DESTROY ole_object

reemplaza el siguiente código por el tuyo. hace lo mismo pero con las especificaciones que necesitas.
luego de grabar el documento, verifica si existe y con las opciones para ejecutar el archivo.
en global external functions pega el siguiente codigo para ejecutar un archivo

// para ejecutar un archivo (txt, xls, doc, htm, etc)
Function Long ShellExecuteA(ulong hwnd ,string lpOperation, string lpFile, &
string lpParameters, string lpDirectory, long nShowCmd) library "shell32.dll"

// script boton guardar

integer li_filenum, li_value
string ls_dir, ls_file, ls_null
string ls_patch = "E:\JWSYSCPRO"
string ls_file_directorio,ls_new_directory

SetNull(ls_null)
ls_file_directorio ='Factura' + gs_nrofactura

ls_dir = getcurrentdirectory()
ChangeDirectory("c:\sistemas" )
CreateDirectory(ls_file_directorio)
ls_new_directory =ls_patch + "\" + ls_file_directorio
ChangeDirectory(ls_new_directory )
ls_file = ls_new_directory +"\" + ls_file_directorio + ".doc"

li_value = GetFileSaveName("Select File", ls_file, ls_new_directory, "DOC", "Formato en WORD (*.DOC),*.DOC")
If li_value <> 1 then return -1
ole_object.ActiveDocument.SaveAs(ls_file)
If FileExists(ls_file) then
parent.title = ls_file
If Messagebox("Mensaje","El archivo se grabó en la siguiente ruta: ~r " + ls_file + &
+ "~rDesea abrir el archivo..?",Question!,YesNo! ,2) = 1 then
ShellExecuteA(Handle(parent), ls_null, ls_file, ls_null,ls_null, 1)
end if
Else
MessageBox("Error","Error al grabar el archivo",sTopSign!)
End if
ole_object.quit(0)
ole_object.DisconnectObject()
DESTROY ole_object