Wie vergibt man VBS-Namen an Worksheets?

Question

Wie vergibt man VBS-Namen an Worksheets?

Antwort

Verwandte Fragen

Wie erhalte ich in VB.NET 2003 alle Laufwerksnamen?

Wie ermittle ich in VB.NET 2003 die vollständigen Namen der Laufwerke wie "Lokaler Datenträger (C:)", "DVD-RW-Laufwerk (F:)", "USB2 (G:)"?

Accepted Answer

Wie kann ich in Excel mit VBA (Visual Basic for Applications) Worksheets vergeben?

Kategorie: Programmierung Tags: VBS Worksheets Namen

Accepted Answer

Um in VB.NET 2003 alle Laufwerksnamen (z.B. "C:\", "D:\") zu erhalten, kannst du die Klasse `System.IO.DriveInfo` **nicht** verwenden, da sie erst ab .NET Framework 2.0 verfüg... [mehr]

Accepted Answer

Um in VB.NET 2003 alle Laufwerksnamen (z.B. "C:\", "D:\") zu erhalten, kannst du die Klasse `System.IO.DriveInfo` **nicht** verwenden, da sie erst ab .NET Framework 2.0 verfügbar ist. In .NET 1.1 (wie in VB.NET 2003 üblich) nutzt du stattdessen die Methode `System.IO.Directory.GetLogicalDrives()`. Hier ein Beispiel: ```vb Dim laufwerke() As String laufwerke = System.IO.Directory.GetLogicalDrives() For Each laufwerk As String In laufwerke Console.WriteLine(laufwerk) Next ``` Das Array `laufwerke` enthält dann alle verfügbaren Laufwerksbuchstaben, z.B. `"C:\"`, `"D:\"` usw.

Accepted Answer

In VB.NET 2003 kannst du die vollständigen Namen der Laufwerke (wie „Lokaler Datenträger (C:)“, „DVD-RW-Laufwerk (F:)“, „USB2 (G:)“ usw.) mit Hilfe des `S... [mehr]

Accepted Answer

In VB.NET 2003 kannst du die vollständigen Namen der Laufwerke (wie „Lokaler Datenträger (C:)“, „DVD-RW-Laufwerk (F:)“, „USB2 (G:)“ usw.) mit Hilfe des `System.IO.DriveInfo`-Objekts **nicht** direkt ermitteln, da dieses erst ab .NET Framework 2.0 verfügbar ist. In .NET 1.1 (wie in VB.NET 2003 üblich) musst du auf die Windows-API zurückgreifen, um den „vollständigen Namen“ (also die Bezeichnung aus dem Explorer) zu bekommen. Hier ein Beispiel, wie du das mit der Windows-API-Funktion `GetVolumeInformation` und `GetLogicalDriveStrings` machen kannst: ```vbnet Imports System.Runtime.InteropServices Imports System.Text Module Module1 <DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _ Private Function GetVolumeInformation( _ ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As StringBuilder, _ ByVal nVolumeNameSize As Integer, _ ByRef lpVolumeSerialNumber As Integer, _ ByRef lpMaximumComponentLength As Integer, _ ByRef lpFileSystemFlags As Integer, _ ByVal lpFileSystemNameBuffer As StringBuilder, _ ByVal nFileSystemNameSize As Integer) As Boolean End Function <DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _ Private Function GetLogicalDriveStrings( _ ByVal nBufferLength As Integer, _ ByVal lpBuffer As StringBuilder) As Integer End Function Sub Main() Dim buffer As New StringBuilder(256) Dim drives As New StringBuilder(256) GetLogicalDriveStrings(drives.Capacity, drives) Dim allDrives() As String = drives.ToString().Split(Chr(0)) For Each drive As String In allDrives If drive.Length > 0 Then Dim volName As New StringBuilder(256) Dim fsName As New StringBuilder(256) Dim serialNum, maxCompLen, fsFlags As Integer If GetVolumeInformation(drive, volName, volName.Capacity, serialNum, maxCompLen, fsFlags, fsName, fsName.Capacity) Then Dim label As String = volName.ToString() If label = "" Then label = "Lokaler Datenträger" Console.WriteLine(label & " (" & drive.TrimEnd("\"c) & ")") End If End If Next End Sub End Module ``` **Hinweise:** - Das Laufwerkslabel (z.B. „USB2“) wird mit `GetVolumeInformation` ausgelesen. - Wenn kein Label vergeben ist, wird „Lokaler Datenträger“ angezeigt. - Die genaue Bezeichnung wie „DVD-RW-Laufwerk“ bekommst du so nicht, da das Windows-Explorer-spezifisch ist. Du kannst aber anhand des Laufwerkstyps (z.B. mit `GetDriveType`) unterscheiden, ob es sich um ein CD/DVD-Laufwerk handelt. **Weitere Infos:** - [Microsoft Doku zu GetVolumeInformation](https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getvolumeinformationa) - [Microsoft Doku zu GetLogicalDriveStrings](https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getlogicaldrivestringsa) Für eine noch genauere Anzeige wie im Explorer müsstest du auf WMI oder Shell-APIs zurückgreifen, was in VB.NET 2003 aber recht aufwändig ist.