Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: yes2002 am 16.04.03 - 10:54:00

Titel: Pfad, freier Speicherplatz ermitteln
Beitrag von: yes2002 am 16.04.03 - 10:54:00

Hi,

ich kenne keinen Pfadnamen, z.B. f:\test\.

Wie kriege ich heraus, wieviel Speicherplatz verfügbar ist.

Auf Kommandozeilenebene kann ich das ja z.B. mit dem Befehl DIR ermitteln. Hat jemand ein Tipp?

Ich möchte das in Lotusscript einbauen.

Titel: Re:Pfad, freier Speicherplatz ermitteln
Beitrag von: Till_21 am 16.04.03 - 11:10:35

mit noteseigenen bordmitteln so nicht realisierbar...
aber...
es gibt ja noch die winapi:

DECLARATIONTS->

Declare Function GetDiskFreeSpaceEx Lib "kernel32" _
Alias "GetDiskFreeSpaceExA" _
(Byval lpDirectoryName As String, _
lpFreeBytesAvailableToCaller As Currency, _
lpTotalNumberOfBytes As Currency, _
lpTotalNumberOfFreeBytes As Currency) As Long
' Dimension Constant values.
Const GigaByte = 1073741824
Const MegaByte  = 1048576


FUNCTION->

Function Getsize(volume As String) As Currency
   Dim cJunkValue As Currency
   Dim cTotalNumberOfBytesOnDrive As Currency
   Dim cTotalNumberOfFreeBytes As Currency
   
   Dim lResults As Long
   lResults = GetDiskFreeSpaceEx(volume, cJunkValue, cTotalNumberOfBytesOnDrive, cTotalNumberOfFreeBytes)
   
   ' cTotalNumberOfBytesOnDrive
   Getsize = cTotalNumberOfFreeBytes
End Function

AUFRUF ->

diskfree = Cdbl(Getsize("C:\"))*10000



gruss

Titel: Re:Pfad, freier Speicherplatz ermitteln
Beitrag von: yes2002 am 16.04.03 - 13:43:14

Hi,

erstmal Danke für die Mühe, nützt mir leider nichts. Das Script gibt mir den gesamten freien Platz auf der Festplatte aus. Ich arbeite mit Netzlaufwerken (Novell) und wollte da wissen, wieviel Platz noch auf diesem Pfad (?) frei ist. Die richtige Info bekomme ich mit dir *.* /s.

Hast Du noch eine Idee?

Danke und Gruß