eclems
Messages postés104Date d'inscriptionsamedi 23 décembre 2000StatutMembreDernière intervention 9 mai 2013
-
4 août 2010 à 19:35
eclems
Messages postés104Date d'inscriptionsamedi 23 décembre 2000StatutMembreDernière intervention 9 mai 2013
-
5 août 2010 à 20:09
BONSOIR
Comment afficher dans une ttreview la liste des dossier ex :
eclems
|_ dossier1
|_ dossier2
|_sousdossierx
eclems etant la base des repertoires du site si vous levoullez
eclems
Messages postés104Date d'inscriptionsamedi 23 décembre 2000StatutMembreDernière intervention 9 mai 2013 5 août 2010 à 20:09
J'ai explorer la toile et j'ai trouvez ce code
Mais il m'affiche des repertoire bizard pouvez vous m'aider !!!
procedure TForm1.FTPDirToTreeView(AFTP: TIdFTP; ATree: TTreeView;
const ADirectory: String; AItem: TTreeNode;
AIncludeFiles:Boolean);
var
TempItem: TTreeNode;
I: Integer;
DirList: TIdFTPListItems;
DirItem: TIdFTPListItem;
LS: TStringList;
begin
LS := TStringList.Create;
try
LS.Sorted := True;
ATree.Items.BeginUpdate;
try
if (ADirectory <> '') then
AFTP.ChangeDir(ADirectory);
AFTP.TransferType := ftASCII;
AFTP.List(nil);
DirList := AFTP.DirectoryListing;
for i := 0 to DirList.Count - 1 do
begin
try
DirItem := DirList.Items[i];
if (DirItem.ItemType = ditDirectory) then
begin
TempItem := ATree.Items.AddChild(AItem, Trim(DirItem.FileName) + '/');
LS.AddObject(Trim(DirItem.FileName), TempItem);
end
else
begin
if (AIncludeFiles) then
ATree.Items.AddChild(AItem, DirItem.FileName);
end;
except
end;
end;
for i := 0 to LS.Count - 1 do
begin
FTPDirToTreeView(AFTP, ATree, ADirectory +
LS.Strings[i] + '/', TTreeNode(LS.Objects[i]), AIncludeFiles);
end;
finally
ATree.Items.EndUpdate;
end;
finally
LS.Free;
end;
end;