evitar sobreescribir un archivo en el commondialog

[Rossanalie]

Hola

Estoy programando el Common dialog de Guardar Como... yo quiero hacer que cuando vaya a guardar un archivo con nombre igual a cualquiera que este en la carpeta me diga un mensaje "Ya existe un archivo con el mismo nombre ¿Desea sobreescribirlo?"
También tengo otra pregunta del common dialog pero de Abrir Archivo... trato de abrir un archivo xml en el internet explorer a través de la Shellexecute, el código esta abajo. El problemilla que tengo es que tengo que indicar la ruta y el nombre de archivo por separado y el filename me trae todo completo lo que quiero es separar la ruta del nombre de archivo para pasarselo a la funcion shellexecute

'Abrimos el archivo con la sentencia InPut, pasandole la ruta con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Input As #1
ruta = CommonDialog1.FileName
Close #1
'llamamos a una funcion api para abrir el archivo en el Internet Explorer
ShellExecute Me.hwnd, "open", "archivo", "", "ruta", 0