datenträger-nummer auslesen mit vba?

Computer: Software & Programmierung Programmierung allgemein
#1

ist es möglich, mit vba die serien-nummer eines datenträgers (z.b. cd-rom) auszulesen und sie automatisch in die fusszeile eines word-dokumentes einzufügen?

mit bestem dank im voraus

felix geiger
[email protected]
icq# 21156665

#2

Hi,

ist es möglich, mit vba die serien-nummer eines datenträgers
(z.b. cd-rom) auszulesen und sie automatisch in die fusszeile
eines word-dokumentes einzufügen?

aus dem API-Guide (http://www.allapi.net):

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form\_Load()
 'KPD-Team 1998
 'URL: http://www.allapi.net/
 'E-Mail: [email protected]
 Dim Serial As Long, VName As String, FSName As String
 'Create buffers
 VName = String$(255, Chr$(0))
 FSName = String$(255, Chr$(0))
 'Get the volume information
 GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
 'Strip the extra chr$(0)'s
 VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
 FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
 MsgBox "The Volume name of C:\ is '" + VName + "', the File system name of C:\ is '" + FSName + "' and the serial number of C:\ is '" + Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title
End Sub

Gruß
J.

#3

mit diesem source-code kann man die nummer eines bestimmten datenträgers (z.b. immer c:) auslesen. wie kann man immer die datenträgernummer der cd-rom auslesen?

#4

mit diesem source-code kann man die nummer eines bestimmten
datenträgers (z.b. immer c:) auslesen. wie kann man immer die
datenträgernummer der cd-rom auslesen?

Ich glaube, das hatte ich auch mal gepostet:

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form\_Load()
 'KPD-Team 1998
 'URL: http://www.allapi.net/
 'E-Mail: [email protected]
 'Set the graphic mode to persistent
 Me.AutoRedraw = True
 'Get information about the C:\
 Select Case GetDriveType("C:\")
 Case 2
 Me.Print "Removable"
 Case 3
 Me.Print "Drive Fixed"
 Case Is = 4
 Me.Print "Remote"
 Case Is = 5
 Me.Print "Cd-Rom"
 Case Is = 6
 Me.Print "Ram disk"
 Case Else
 Me.Print "Unrecognized"
 End Select
End Sub

Ich hoffe das hilft.

Hol Dir auf jeden Fall den API-Guide, das ist echt toll! Ich bin selbst nicht so fit, daß ich die Dinge im Kopf hätte, aber der hat sehr gute Suchmöglichkeiten!

Gruß

J.