Verfasst am: 02.07.2008, 12:23 Aufrufe: 457
Da kannst du mit DriveInfo arbeiten :)Lass dir alle Drives auflisten dann alle Unterordner usw. wird ein rechen intensiver Prozess.
Verfasst am: 29.02.2008, 22:20 Aufrufe: 1780
... NFO
OSVSize As Long
dwVerMajor As Long
dwVerMinor As Long
dwBuildNumber As Long
PlatformID As Long
szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" _
Alias "GetVersionExA" _
(LpVersionInformation As OSVERSIONINFO) As Long
Public Function EIN() As String
Dim di As DRIVE_INFO
di = GetDriveInfo ...