Dateigröße auf Netzlaufwerk ermitteln

[Luckie]

Also das sagt das DK dazu:

Zitat:

On network shares, you can use an lpFileName in the form of the following: "\\server\service\*" but you cannot use an lpFileName that points to the share itself, for example, "\\server\service".

[haentschman]

...was ist DK ?

..vieleicht ist es ja schon zu spät.. ich verstehe das Zitat nicht wirklich...

Danke für Eure Hilfe...

[himitsu]

SDK / PSDK
> FindFirstFile

Nja, das Zitat sagt daß es eigentlich gehn sollte.


Du könntest es nochmal mit der Unicode-Version der WinAPI-Funktion FindFistFile (FindFistFileW) versuchen. Vorallem bei den UNC-Namen arbeitet diese etwas anders als die ANSI-Version (FindFistFile/FindFistFileA).

[haentschman]

...nun ja ich sehe das genauso...

100 mal schon mit Netzlaufwerken, VPN via IP gearbeitet...keine Probleme.

...darum

...aus Spaß habe ich mal eine FileListBox auf die Form gesetzt. Mit der Directory Angabe \\localhost\c:\tmp bekomme ich auch Fehler 53...

...ist schon so traurig, daß es wieder zum Lachen ist...

[himitsu]

hatte grad nochwas in Beitrag #13 nachgetragen,
wie gesagt, du könntest es nochmals mit Unicode versuchen (direkt über die WinAPI oder eine UnicodeCodesammlung)

Oder hast du mal vesucht andere/alle Dateien auf dem Zielrechner zu finden?
z.B. \\host\c:\tmp\*.*

[haentschman]

...alles das gleiche in grün.

egal wie ich den File String zusammensetze.

FindFirstFileW... damit muß ich mich erst etwas näher beschäftigen...

[himitsu]

Kurzfassung/Test:

Delphi-Quellcode:

Var FileName: WideString;
  H: THandle;
  D: TWIN32FindDataW;

Begin
  FileName := 'deine Datei oder ein Suchmuster';

  H := FindFirstFileW(PWideChar(FileName), D);
  If H = INVALID_HANDLE_VALUE Then GetLastError_auswerten;
  {sonst alles ok}
  CloseHandle(H);

[haentschman]

... habe mir noch eimal die Namenskonvention angeschaut.

http://msdn2.microsoft.com/en-us/library/aa365247.aspx

...eigentlich ist das richtig, was ich getrieben hab...

[himitsu]

Ja wie gesagt: die ANSI-Dateifunktionen sind halt in einigen Dingen etwas eingeschränkt
und wenn du Glück hast, dann liegt es nur an soeiner Beschränkung.
Wenn nicht, dann sieht es schon schwerer aus, da dieses ja eigentlich funktionieren sollte.

[haentschman]

...erst einmal Danke,Danke,Danke...

Habe Deinen Tipp wie folgt angepaßt.

Delphi-Quellcode:

function GetFileSize2(const FileName: String): Int64;
var
  H: THandle;
  D: TWIN32FindDataW;

begin
  H := FindFirstFileW(PWideChar(FileName), D);
  If H <> INVALID_HANDLE_VALUE then exit; //GetLastError_auswerten;
  result := (d.nFileSizeHigh*(MAXDWORD))+d.nFileSizeLow;
  CloseHandle(H);
end;

...Datei wird gefunden...aber die Größe stimmt nicht.