Zugriff auf Array funktioniet nicht

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von mcdt.

    Zugriff auf Array funktioniet nicht

    Hi,
    ich möchte gerne ein Array mit ein par Informationen füllen.
    Anbei mal mein Code :

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    4. Public Class Form1
    6. Dim VZInfo() As VerzeichnisInfo
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. Dim i As Integer = 0
    10. For Each dr As System.IO.DriveInfo In My.Computer.FileSystem.Drives
    11. If (dr.DriveFormat = "FAT32") Or (dr.DriveFormat = "NTFS") Then
    12. VZInfo(i).Format = dr.DriveFormat
    13. VZInfo(i).RootDirectory = dr.RootDirectory.Name
    14. VZInfo(i).Typ = dr.DriveType
    15. VZInfo(i).VolumeLabel = dr.VolumeLabel
    16. i = i + 1
    17. End If
    18. Next
    19. i = 0
    20. End Sub
    22. Structure VerzeichnisInfo
    23. Public Format As String
    24. Public Typ As String
    25. Public VolumeLabel As String
    26. Public RootDirectory As String
    27. End Structure
    29. End Class



    Es fehlermeldung erscheint folgender Text :

    "Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt."


    Markiert wird folgende Zeile :

    "VZInfo(i).Format = dr.DriveFormat"


    wäre nett wenn mir jemand helfen kann.


    mfg

    Du musst für das Array vorher Speicher beschaffen. Sonst ist es ja leer.
    Nimm am besten eine List(Of VerzeichnisInfo) anstatt einem Array:

    VB.NET-Quellcode

    1. Dim VZInfo as New List(Of VerzeichnisInfo)
    2. ' item hinzufügen
    3. VZInfo.Add(New VerzeichnisInfo With { .Format = dr.DriveFormat, .RootDirectory = dr.RootDirectory.Name, usw... })

Facebook
Telefonspende