[UNIVERSUM] = Erde
[SPIELERNAME] = Admin
[RESSOURCEN]
[METALL] = 5000
[KRISTALL] = 5000
[DEUTERIUM] = 5000
[DUNKLE MATERIE] = 0
[ENERGIE] = 0

 Private Sub Acc_Check()
 
        Dim directory As New System.IO.DirectoryInfo("C:\OGameSaves\")
        For Each file1 As System.IO.FileInfo In directory.GetFiles
            If file1.Extension = ".txt" Or file1.Extension = ".TXT" Then
                Uni_Auswahl.Items.Add(file1)
            End If
        Next
 
    End Sub