Fórum Mapear pasta #171595

Caro amigo,

Veja:

procedure TForm1.Button1Click(Sender: TObject);
var
NRW: TNetResource;
begin
with NRW do
begin
dwType:=RESOURCETYPE_ANY;
lpLocalName:=´G:´;
lpRemoteName:=´\\rede_conections\C´;
lpProvider:=´´;
end;
WNetAddConnection2(NRW, ´Senha´, ´UserName´, CONNECT_UPDATE_PROFILE);
end;

Atenciosamente,

Daniel Araújo

ih...axo q expliquei mal......na verdade quero saber o nome dos arquivos dentro de uma determinada pasta...no meu proprio pc....sem rede nem nada.......soh o nome dos arquivos....

Caro amigo,

Veja um exemplo para listar as conexões da rede.

Atenciosamente,

Daniel Araújo


procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
Count, Size, rc : Cardinal;
NetHandle : THandle;
NetResources : Array of TNetResource;
begin
// abre enumeração
if WNetOpenEnum(RESOURCE_CONNECTED, RESOURCETYPE_ANY, 0, nil, NetHandle) <> NO_ERROR then
Exit;
try
// tamanho inicial de NetResources
SetLength(NetResources,50);
try
while True do begin
// pega o máximo de elementos
Count := Cardinal(-1);
Size := Length(NetResources)*SizeOf(TNetResource);
// pega as conexões
rc := WNetEnumResource(NetHandle, Count, @NetResources[0], Size);
// tamanho insuficiente. aumenta-o
if rc = ERROR_MORE_DATA then begin
SetLength(NetResources, Round(Size/Sizeof(TNetResource)+0.5));
Continue;
end;
if rc <> NO_ERROR then
Exit;
// preenche a listbox
for i := 0 to Count - 1 do
with NetResources[i] do
ListBox1.Items.Add(lpRemoteName)
end;
finally
NetResources := Nil;
end;
finally
// fecha a enumeração
WNetCloseEnum(NetHandle);
end;
end;

Dê uma espiada em
http://www.forumweb.com.br/index.php?showtopic=2774&st=0&#entry11792