Alle Ordner und Dateien aus Freigabe auflisten

**n0b0dy**

Guten Abend Zusammen,

ich habe ein Problem beim Auflisten aller Ordner und Dateien aus einer Freigabe im Netzwerk (Rechte natürlich vorhanden)
Habe mich mit FindFirst und FindNext auseinandergesetzt, so wie ich es bei lokalen Ordnern machen würde, jedoch klappt das so garnicht. Wie macht man das denn übers Netzwerk?

also möchte zB '\\ip\c$' eingeben, und er soll mir dann alle Ordner und Dateien aufzeigen.

Aber erstmal Gute Nacht

**n0b0dy**

*push*

Hat denn keiner ne Ahnung?

Muss doch irgendwie möglich sein, auf Freigaben zuzugreifen, und Ordner und Dateilisten davon zu erstellen

Mfg

**marabu**

Hallo nobody,

bei \\server-or-ip\c$ handelt es sich um eine administrative Freigabe des Rechners - hast du dir die benötigten Rechte für den Zugriff besorgt? Hast du die Fehlercodes bei deinen Zugriffsversuchen ausgewertet?

Grüße vom marabu

**n0b0dy**

hi,

ja Rechte habe ich. Also das Programm läuft schon unter dem AdminAccount.

aber zum Authentifizieren habe ich auch schon diese FUnktion von Luckie genommen. Damit greift man auf eine Freigabe zu mit Admin User und passwd und "erklär" dem, dass man die nötigen Rechte hat

zusammenfalten · markieren

Delphi-Quellcode:

			function ConnectToNetworkDrive(LocalName: string; RemoteName: string; Username: string; Password: string;

  RestoreAtLogon: boolean): DWORD;

var

  NetResource            : TNetResource;

  dwFlags                : DWORD;

begin

  dwFlags := 0;

  ZeroMemory(@NetResource, sizeof(TNetResource));

  with NetResource do begin

    dwType := RESOURCETYPE_ANY;

    lpLocalName := PChar(LocalName);

    lpRemoteName := PChar(RemoteName);

    lpProvider := nil;

  end;

  if (RestoreAtLogon) then

    dwFlags := dwFlags or CONNECT_UPDATE_PROFILE;

  Result := WNetAddConnection2(NetResource, PChar(Password), PChar(Username), dwFlags);

end;

Ich weiß halt nicht wie ich nach dem Connecten weiter machen soll und die Dateien und Ordner auflisten kann. Ich möchte KEIN Netzlaufwerk auf meinem PC erstellen, sondern nur auf eine Netzwerkfreigabe (halt auch Standardfreigabe) zugreifen (Ordner, Dateien auflisten und ggf. Dateien kopieren)

Gruß

**marabu**

Das Suchen nach Dateien machst du so wie immer (FindFirst, FindNext), lediglich statt eines drive letter verwendest du dann den UNC Namen. Mit dem Verbindungsaufbau über WNetAddConnection2() holst du dir ja nur das passende security token.

Grüße, marabu

**n0b0dy**

ja genau das ist ja das Problem. Wenn ich den UNC-Namen eingebe, passiert einfach nichts.
Kein Fehler, kein nichts...

Folgende Funktion zum Listen der Dateien / ORdner:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure FindAllFiles(FileList: TStrings; RootFolder: string; Mask: string ='*'; Recurse: Boolean = True; AddFolderNames: Boolean = False; IgnoreMaskAtFolderNames: Boolean = True);

  procedure LFindAllFiles(AParentFolder: String);

  var LSearchRec: TSearchRec;

  begin

    if FindFirst(AParentFolder + '*', faAnyFile, LSearchRec) = 0 then

    begin

      repeat

        if (LSearchRec.Name <> '.') and (LSearchRec.Name <> '..') then

        begin

          if LSearchRec.Attr and faDirectory = faDirectory then

          begin

            if AddFolderNames and

               (IgnoreMaskAtFolderNames or Like(AnsiLowerCase(LSearchRec.Name), Mask)) then

              FileList.AddObject(AParentFolder + LSearchRec.Name, TObject(True));

            if Recurse then

              LFindAllFiles(AParentFolder + LSearchRec.Name + '\');

          end

          else if Like(AnsiLowerCase(LSearchRec.Name), Mask) then

            FileList.AddObject(AParentFolder + LSearchRec.Name, TObject(False));

        end;

      until FindNext(LSearchRec) <> 0;

      FindClose(LSearchRec);

    end;

  end;

begin

  Mask := AnsiLowerCase(Mask);

  LFindAllFiles(IncludeTrailingPathDelimiter(RootFolder));

end;

**Luckie**

Dann frag doch einch mal mit GetLastError den Fehlerwert von FindFirst ab.

markieren

Delphi-Quellcode:

			if FindFirst = 0 then

begin

end

else

  ShowMessage(SysErrorMessage(getLastError));

Genau deswegen liefrn API Funktionen ja Fehlercodes zurück bzw. gibt es GetLastError.

**n0b0dy**

Ja kein Fehler, dass is ja das komische

. Krieg ne leere StringList zurück.
Ich bin total verzweifelt. Ich mach nun das ganze nochmal neu, weil irgendwo muss ein flüchtigkeitsfehler bei der Ausgabe sein oder so....

Anders kann ich mir das nicht vorstellen.

[ EDIT ]
man oh mann. jetzt gehts

ich habe einfach alles noch einmal neu zusammengebastelt und nun gehts.
ich weiß nicht wieso.

das is doch genau das gleich wie vorher ... hab mich seit 2 tagen rumgequält, und irgendwie funzt es jetzt, obwohl nix anders is als beim ersten mal
bin platt^^

**pacman1986**

könntest du mal eine demo reinstellen ich kriegs irgendwie nicht hin

**n0b0dy**

Funktion:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure FindAllFiles(FileList: TStrings; RootFolder: string; Mask: string ='*'; Recurse: Boolean = True; AddFolderNames: Boolean = False; IgnoreMaskAtFolderNames: Boolean = True);

  procedure LFindAllFiles(AParentFolder: String);

  var LSearchRec: TSearchRec;

  begin

    if FindFirst(AParentFolder + '*', faAnyFile, LSearchRec) = 0 then

    begin

      repeat

        if (LSearchRec.Name <> '.') and (LSearchRec.Name <> '..') then

        begin

          if LSearchRec.Attr and faDirectory = faDirectory then

          begin

            if AddFolderNames and

               (IgnoreMaskAtFolderNames or Like(AnsiLowerCase(LSearchRec.Name), Mask)) then

              FileList.AddObject(AParentFolder + LSearchRec.Name, TObject(True));

            if Recurse then

              LFindAllFiles(AParentFolder + LSearchRec.Name + '\');

          end

          else if Like(AnsiLowerCase(LSearchRec.Name), Mask) then

            FileList.AddObject(AParentFolder + LSearchRec.Name, TObject(False));

        end;

      until FindNext(LSearchRec) <> 0;

      FindClose(LSearchRec);

    end;

  end;

begin

  Mask := AnsiLowerCase(Mask);

  LFindAllFiles(IncludeTrailingPathDelimiter(RootFolder));

end;

Aufruf:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Lst: TStrings;

begin

  Lst := TStringList.Create;  

  FindAllFiles(Lst, '\\pc-name\c$', '*', False, True, True);

  ShowMessage(Lst.Text);

  Lst.Free;

end;

Grüße
n0b0dy

Alle Ordner und Dateien aus Freigabe auflisten

Alle Ordner und Dateien aus Freigabe auflisten

Re: Alle Ordner und Dateien aus Freigabe auflisten

Re: Alle Ordner und Dateien aus Freigabe auflisten

Re: Alle Ordner und Dateien aus Freigabe auflisten

Re: Alle Ordner und Dateien aus Freigabe auflisten

Re: Alle Ordner und Dateien aus Freigabe auflisten

Re: Alle Ordner und Dateien aus Freigabe auflisten

Re: Alle Ordner und Dateien aus Freigabe auflisten

Re: Alle Ordner und Dateien aus Freigabe auflisten

Re: Alle Ordner und Dateien aus Freigabe auflisten

Forumregeln

n0b0dy Registriert seit: 12. Sep 2005 Ort: Hessen 268 Beiträge	#2 Re: Alle Ordner und Dateien aus Freigabe auflisten 2. Okt 2006, 22:38 push Hat denn keiner ne Ahnung? Muss doch irgendwie möglich sein, auf Freigaben zuzugreifen, und Ordner und Dateilisten davon zu erstellen Mfg
	Zitat

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#3 Re: Alle Ordner und Dateien aus Freigabe auflisten 3. Okt 2006, 09:53 Hallo nobody, bei \\server-or-ip\c$ handelt es sich um eine administrative Freigabe des Rechners - hast du dir die benötigten Rechte für den Zugriff besorgt? Hast du die Fehlercodes bei deinen Zugriffsversuchen ausgewertet? Grüße vom marabu
	Zitat

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#5 Re: Alle Ordner und Dateien aus Freigabe auflisten 3. Okt 2006, 11:43 Das Suchen nach Dateien machst du so wie immer (FindFirst, FindNext), lediglich statt eines drive letter verwendest du dann den UNC Namen. Mit dem Verbindungsaufbau über WNetAddConnection2() holst du dir ja nur das passende security token. Grüße, marabu
	Zitat

pacman1986 Registriert seit: 11. Feb 2005 Ort: Kirchhain 498 Beiträge Delphi 2005 Personal	#9 Re: Alle Ordner und Dateien aus Freigabe auflisten 4. Okt 2006, 23:13 könntest du mal eine demo reinstellen ich kriegs irgendwie nicht hin Christian N. Designed to make a difference najjaronline.de
	Zitat