Evitar carpetas duplicadas
Hola experto
Tengo un formulario donde introduzco : codigo, nom y apellidos y dentro de ese formulario he creado un boton de comando que me crea una carpeta automaticamente con los apellidos, nombrey e codigo por este orden en una ruta especificada:
Private Sub Comando31_Click()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.createFolder ("Z:\COMU\Comú\Correu\Clients" & "\" & Cognoms & " " & Nom & "-" & Codi)
End Sub
Hasta aquí perfecto. El único problema que tengo es que cuando tengo la carpeta creada e intento crear la misma me aparece el error 58 de duplicado.
Quisera saber que codigo he de poner para que cuando la carpeta este creada me aparezca un mensaje de por ejemplo " carpeta ya creada" en lugar del error 58
Gracias por tu tiempo.
Tengo un formulario donde introduzco : codigo, nom y apellidos y dentro de ese formulario he creado un boton de comando que me crea una carpeta automaticamente con los apellidos, nombrey e codigo por este orden en una ruta especificada:
Private Sub Comando31_Click()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.createFolder ("Z:\COMU\Comú\Correu\Clients" & "\" & Cognoms & " " & Nom & "-" & Codi)
End Sub
Hasta aquí perfecto. El único problema que tengo es que cuando tengo la carpeta creada e intento crear la misma me aparece el error 58 de duplicado.
Quisera saber que codigo he de poner para que cuando la carpeta este creada me aparezca un mensaje de por ejemplo " carpeta ya creada" en lugar del error 58
Gracias por tu tiempo.
