Zitat:
Original geschrieben von Seidl
Also ich glaube offengesagt nicht, dass diese Funktion besonders viel Performance frisst (sofern man sie nicht 10 mal in der Sekunde aufruft  )
Verweis auf "scrrun.dll" und gib ihm.
Public Sub FreeSpace()
Dim FileSys As FileSystemObject
Dim drvCheck As Drive
Dim FreeSpace As String
Set FileSys = New FileSystemObject
Set drvCheck = FileSys.GetDrive("C:")
FreeSpace = Format(drvCheck.FreeSpace / (2 ^ 30), "#.000")
FreeSpace = Left(FreeSpace, Len(FreeSpace) - 1) & " GB"
MsgBox FreeSpace
End Sub
|
danke...
Naja, es kommt darauf an wo das Ding positioniert ist.
Weil es geht ja darum, in einer Schleife zu checken ob er noch weiter machen kann (Datansätze erstellen), oder ob die Platte schon voll ist.
Ich müsst mir aber erst anschaun wo das sein soll, bzw. der der das Modul geschrieben hat tut dies und ich stell nur die Funktion bereit (sowas was du geschrieben hast - danke dafür, dann brauch ich es mir nciht raus suchen
)
Oder man checkt das beim Formular/Modulaufruf - und gibt eine "Warnmeldung" aus, wenn der freie Platz unter einen gewissen Wert gefallen ist.
btw - passt zwar nicht dazu, aber du hast mal davon gesprochen, dass du Office 2k Developer verwendest.
Gibts so eine Edition auch für XP, weil ich davon eigentlich noch nix gehört hab.
