title image


Smiley Re: Abfrage ob Diskette im Laufwerk.....
Hallo,das hier stand 'mal im Forum:Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal LWName As String, ByVal LWBezeichnung As String, ByVal LWBezGröße As Long, LWSeriennummer As Long, Maxlänge As Long, flags As Long, ByVal NamePuffer As String, ByVal NPGröße As Long) As LongFunction disk_in_a() As Boolean Dim bez As String Dim ser As Long Dim sergr As Long Dim flag As Long Dim ns As String Dim np bez = Space(256) np = Space(256) Call GetVolumeInformation("a:\", bez, 256, ser, sergr, flag, np, 256) If ser 0 Then disk_in_a = True Else disk_in_a = False End IfEnd Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: