title image


Smiley Datenträgernummer -> API
Hallo Michael!Findest du in der KnowHow ;-) Falls du sie nicht hast (Link s.u.), anbei ein Ausschnitt:Private Declare Function GetVolumeInformation Lib "kernel32" Alias _ "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _ lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, lpMaximumComponentLenght As Long, _ lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _ ByVal nFileSystemNameSize As Long) As LongFunction VolSerialNoErm(lpRootPathName As String, Deci As Boolean)' Seriennummer eines Laufwerks ermitteln' Laufwerk übergeben. Wenn Deci = False, dann wird ein Hex-Wert mit' Bindestrich in der Mitte z.B.: "2AB1-1234" zurückgegeben' Bei Deci = True wird der Dezimalwert zurückgegeben.' LpRootPathName ist der Laufwerksbuchstabe z.B. "C:\"' 21.02.1998 Ober Dim IngRet As Long Dim lpVolumeNameBuffer As String Dim nVolumeNameSize As Long Dim lpVolumeSerialNumber As Long Dim lpMaximumComponentLenght As Long Dim lpFileSystemFlags As Long Dim lpFileSystemNameBuffer As String Dim nFileSystemNameSize As Long Dim answer As Integer Dim tmp1 As String IngRet = GetVolumeInformation(lpRootPathName, lpVolumeNameBuffer, _ nVolumeNameSize, lpVolumeSerialNumber, lpMaximumComponentLenght, _ lpFileSystemFlags, lpFileSystemNameBuffer, nFileSystemNameSize) If Deci Then VolSerialNoErm = lpVolumeSerialNumber Else tmp1 = Right("00000000" & Hex(lpVolumeSerialNumber), 8) VolSerialNoErm = Left(tmp1, 4) & "-" & Right(tmp1, 4) End IfEnd FunctionslgManuelaDa könnte man auch was finden ;-)Karl Donaubauers Access-FAQ: http://www.donkarl.comDev Ashish FAQ (The Access Web): http://www.mvps.org/access/KnowHow von Klaus Oberdalhoff: http://www.accessware.de/accessware/index.htmlWie kann man im Forum ... (formatieren):http://www.spotlight.de/ewf-faq/forumslink.htmMSDN-Online: http://msdn.microsoft.com/default.aspAccess Archive: http://www.accessarchive.com/Microsoft Acces Knowledge-Base: http://www.microsoft.com/intlkb/germany/support/kb/B_WACCESS.HTMMicrosoft Online-Suche: http://support.microsoft.com/support/search/Microsoft dt. Online-KB: http://search.microsoft.com/germany/supportkb/Beiträge von verschiedenen Access-NGs: http://home.t-online.de/home/Heinrich.Schramm/deja.htmlWinSite Archive - Microsoft Access Files (Demos & Freeware): http://www.winsite.com/win95/access/index.html
VBA & Acces Tipps & Tricks - Tutorials - Downloads uvm.
Mathematische Definition des allgemeinen Dringlichkeitsaxioms:
D = (PZ/K) * (C + A + N) - Fazit: Alle Dinge werden unter Druck schlimmer


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: