Estoy tratando de utilizar el di谩logo para seleccionar Carpeta
cGetFolder( "Seleccionar Carpeta" )
o
cGetDir( "Seleccionar Carpeta" )
Bien, funciona pero no "despliega" la red
No puedo acceder a las carpetas/equipos de red.
驴?驴?
// New cGetDir() function demo
function Main()
聽 聽local cDirName := cGetDir( "Select a directory",;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 /*CurDrive() + ":\" +*/ GetCurDir() )
聽 聽MsgInfo( cDirName )
聽 聽MsgInfo( LFN2SFN( cDirName ) )
return nilProbado en otros equipos... y persiste el error.
No despliega la red!!!
聽 聽Local oShell 聽:= CreateObject("Shell.Application")
聽 聽Local oFolder := oShell:BrowseForFolder( oWnd:hWnd, "Folder / Carpeta", , ) 聽
聽 聽Local oSelf
聽 聽If !Empty(oFolder)
聽 聽 聽 oSelf := oFolder:Self
聽 聽 聽 ? oSelf:Path
聽 聽EndIfXevi,
Puedes mostrar una imagen de c贸mo se ve la caja de di谩logo de Windows cuando despliega la red ? gracias
#include 'fivewin.ch'
#define OFN_PATHMUSTEXIST 0x00000800
#define OFN_NOCHANGEDIR 0x00000008
#define OFN_ALLOWMULTISELECT 0x00000200
#define OFN_EXPLORER 0x00080000 // new look commdlg
#define OFN_LONGNAMES 0x00200000 // force long names for 3.x modules
#define OFN_ENABLESIZING 0x00800000
#define OFN_HIDEREADONLY 0x00000004 // Oculta a caixa de sele莽茫o Somente leitura.
#define OFN_NONETWORKBUTTON 0x20000 // Desabilita o bot茫o [ REDE ] da Dlg
function aGetFiles( cMask, cTitle, nDefaultMask, cInitDir )
local cSelect, nAt, aFiles := {}
/*
local nFlags := nOr( OFN_PATHMUSTEXIST , OFN_NOCHANGEDIR , ;
OFN_ALLOWMULTISELECT , OFN_EXPLORER , ;
OFN_LONGNAMES, OFN_ALLOWMULTISELECT )
*/
local nFlags := nOr( OFN_PATHMUSTEXIST, OFN_NOCHANGEDIR, OFN_ALLOWMULTISELECT, ;
OFN_LONGNAMES, OFN_NONETWORKBUTTON )
SKINBUTTONS()
//cSelect := cGetFile( cMask, cTitle, nDefaultMask, cInitDir, .f., .t., nFlags )
/*
cSelect := cGetFile( "Bitmap (*.bmp)| *.bmp|"+ ;
"DIB (*.dib)| *.dib|" + ;
"PCX (*.pcx)| *.pcx|" + ;
"JPEG (*.jpg)| *.jpg|" + ;
"GIF (*.gif)| *.gif|" + ;
"TARGA (*.tga)| *.tga|" + ;
"RLE (*.rle)| *.rle|" + ;
"Todos os Arquivos (*.*)|*.*|" ;
,"Selecione a Foto Desejada",1,,.F.,, nFlags )
*/
cSelect := cGetDir( cMask, cTitle, nDefaultMask, cInitDir, .f., .t., nFlags )
cSelect := Left( cSelect, At( Chr( 0 ) + Chr( 0 ), cSelect ) - 1 )
if ! Empty( cSelect )
cSelect := StrTran( cSelect, Chr( 0 ), "," )
aFiles := hb_aTokens( cSelect, "," )
if Len( aFiles ) > 1
for nAt := 2 TO Len( aFiles )
aFiles[ nAt ] := aFiles[ 1 ] + "\" + aFiles[ nAt ]
next nAt
ADel( aFiles, 1 )
ASize( aFiles, Len( aFiles ) - 1 )
endif
endif
return aFilesAntonio,
Utilizando la funci贸n cGetDir(), cGetDirA(), cGetFolder() en el tree que despliega se ve igualmente el icono red (xarxa) como en la imagen, salvo que cuando le clico a desplegar la red se deshabilitan los botones "crear carpeta" y "Aceptar" y queda el cursor pensando (30seg.aprox)... pero no despliega los equipos de red. Sin embargo, como puedes ver en la imagen, utilizando
CreateObject("Shell.Application")
oShell:BrowseForFolder( oWnd:hWnd, "Folder / Carpeta", , )
Si me despliega y muestra perfectamente los equipos de la red y puedo interactuar entre ellos.
Gracias por tu tiempo.