ezequiel
27 de Enero del 2004

En el codigo de hoy la variable "fso" a que la tengo que igualar





If fso.FolderExists(nombre) Then
MsgBox "La carpeta existe"
Exit Sub
Else
fso.CreateFolder(nombre)
TreeView1.Refresh ' o en su defecto volver a recorrer todos los nodos para cargarlo de nuevo con la capeta creada
End If

gracias por hoy no te molesto mas .

sdemingo
27 de Enero del 2004

Hola,

no se a qué te refieres....

Private Sub Form_Load()

Dim fs As Object
Dim nombre As String

nombre = "c:CarpetaDePrueba"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(nombre) Then
MsgBox "ya existe la carpeta"
Else
fs.CreateFolder (nombre)
End If

End Sub


Salu2
sdemingo