txetxo
25 de Noviembre del 2003

Hola

Tengo una el siguiente codigo:
Dim fs As Object
Set fs = CreateObject("scripting.filesystemobject")
fs.copyfile ruta & "*.*", "c:documents and settingscosasescritoriodestino"
MsgBox ("archivos grabados")

quiero que si la carpeta destino no esta creada me salga un mensaje advirtiendomelo y me de la opcion de crear la carpeta, ¿como puedo hacer eso?

Muchas gracias de antemano

sdemingo
25 de Noviembre del 2003

Hola,

Private Sub Command1_Click()

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FolderExists("C:NuevaCarpeta") Then
fs.CopyFile "c:a.msg", "c:NuevaCarepta"
MsgBox ("archivos grabados")
Else
If MsgBox("La carpeta destino no existe. ¿Desea Crearla?", vbYesNo) = vbYes Then
fs.CreateFolder "C:NuevaCarpeta"
fs.CopyFile "c:a.msg", "c:NuevaCarepta"
MsgBox ("archivos grabados")
End If
End If


Saludos
sdemingo