Utiliza getfile()
Pon esto en un botón
.text4.Value=GETFILE("","Carpeta","Abrir",1,"FEK")thisform.text4.Value=STRTRAN(thisform.text4.Value,"\Untitled.","\")thisform.text4.Value=STRTRAN(thisform.text4.Value,"\Anónimo.","\")thisform.text4.Refresh
En un cuadro de texto (en este ejemplo text4) te regresa la ruta de la carpeta que tienes abierta, solo da click en el botón New o Nuevo.
Espero te sea útil.
thisform
[Se han eliminado los trozos de este mensaje que no contenían texto]
__._,_.___
Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com
.
__,_._,___
Nenhum comentário:
Postar um comentário