Verwandte Themen

Lactron
22.08.2022, 08:21
[gelöst] Rechner bootet nicht, Blackscreen?

[Lösung]

(Erklärung wie es zum Fehler gekommen ist)

Meine "ältere" Grafikkarte GTX1070ti unterstützt wohl den Displayport Ausgang im Zusammenhang mit dem BIOS (MEG B550 UNIFY-X) nicht (was die letzten 3 Monate zwar funktionierte... aber egal), weshalb ich auch beim Start nie etwas angezeigt bekommen habe, sondern immer gleich nach 4 Sekunden der Anmeldebildschirm da war. Nun musste ich das Bios zurücksetzen (lt. Hersteller nur über Jumper möglich) Meinen Bildschirm über HDMI anschließen und neu starten. Tadaaa, Bild war da.

(Vorgang zur Behebung)

Bei der Grafikkarte hab ich nun ein Firmwareupdate durchgeführt. Funktioniert bei Nvidia wie bei einem Treiberupdate, also keine Spielereien wie früher mal. Dann noch das BIOS aktualisiert mit M-Flash-USB und nun funktioniert alles einwandfrei.

(Ursprüngliche Frage)

Ist nicht mein erster Rechner welchen ich für mich oder andere baue, trotzdem hatte ich dieses Phänomen noch nicht.

Einzelteile zusammen gebaut, Windows installiert und da ging es dann schon los. Ich komm nicht ins UEFI rein. Hab nur einen Blackscreen und plötzlich ist der Anmeldebildschirm von Windows da. Hab mir darüber ein paar Wochen nichts gedacht (läuft ja). Wenn ich die bekannten Tasten beim Start drücke, dann kommt es vor, dass er nicht bootet und im Blackscreen auf dauer hängen bleibt. Neustart hilft und Rechner fährt hoch. Ins UEFI kommt man aber nicht rein.

Jetzt stürtzte der Rechner bei höherer Last ab und startete sporadisch neu. Lass ich einen Benchmark laufen passiert nichts... Temperaturen im Gehäuse waren normal (Rechner steht im Keller, CPU unter Last zwischen 35 - 55 Grad, GPU ein paar Grad höher)

Ist mir jetzt zu blöd geworden und hab mir gedacht, "ok... machst Win10 neu drauf, schadet ja nie".

hab mir mit "Media Creation Tool" einen USB Stick mit Win10 erstellt und von diesem aus die Installation gestartet. Alle Dateien löschen, Win soll ganz jungfräulich drauf sein und keine Altlasten von meinen Daten dies beeinflussen.

So... jetzt hatte ich das Bild, dass es Win installiert und nach einem automatischen Neustart hab ich nun einen Blackscreen. Hab den mal 2 Stunden lang so gelassen... in der Hoffnung, dass im Hintergrund irgendwas kommt.

Ja, dass ist jetzt das Ende der Geschichte... ich kann nichtmal ins UEFI um irgendwelche Bootreihenfolgen zu ändern. Bild kommt über Onboard sowie über Graka direkt nicht und mir fällt nichts ein, was ich tun soll/kann.

Hatte jemand diesen Fall mal bei sich?

PC, Computer, Windows, BIOS, Windows 10, UEFI
2 Antworten
QQwertz123
18.08.2022, 10:43
Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen? 

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function
Computer, Windows, Microsoft, Datei, Microsoft Excel, programmieren, VBA
2 Antworten

Meistgelesene Beiträge zum Thema Windows
Mehr meistgelesene Fragen zu Windows