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
Ist der Prozess Shell Infrastructure Host (sihost.exe) gefährlich aufgrund hoher CPU Auslastung?

Vor einigen Tagen ist mir aufgefallen dass der Prozess Shell Infrastructure Host teilweise bis zu 40% die CPU auslastet und dies ohne ersichtlichen Grund. Teilweise über Stunden hinweg.

Der Virenscanner findet sowohl im schnellen als auch im vollständigen Suchlauf nichts. Habe den schnellen Suchlauf auch schon mal gestartet als der Prozess die CPU relativ stark ausgelastet hat. Es wurde jedoch nichts gefunden. Im allgemeinen bin ich sehr vorsichtig im Internet unterwegs und auf dem PC wurde schon seit Jahren nichts mehr außer Windows Updates direkt von Microsoft installiert. Allgemein ist sehr wenig auf dem System installiert.

Auf dem PC läuft Windows 10 21H2 mit allen von Microsoft erhalten Updates. 

Der Prozess belastet zudem lediglich die CPU. Er bezieht weder Daten aus dem Internet noch macht er irgendwas am Datenträger, laut Task Manager.

Das Problem tritt meistens auf beim Durchsehen von Fotos. Häufig tritt es erst nach einer Stunde auf. Je länger man Bilder ansieht desto mehr % beansprucht der Prozess. Beim Surfen ist der Prozess bislang noch nicht mit dieser Auslastung aufgetreten.

Im Internet habe ich herausgefunden, dass auch andere dieses Problem haben. Hier wurde empfohlen die Standardapp für das Öffnen von Fotos kurz eine beliebige andere App umzustellen und wieder zurück. 

Sofort nachdem dies geschehen ist ist der Prozess im Task Manager wieder bei 0 - 3 %. Schaut man sich jedoch wieder Bilder an, kann es sein dass der Prozess wieder auf 20 - 40% hochgeht. Auch das schließen der Fotos App und aller anderen Fenster führt nicht dazu, dass der Prozess wieder zu seiner normalen Auslastung zurückkehrt. Ein Neustart des PCs behebt das Problem zudem zunächst auch, aber natürlich auch nur temporär. 

Der Prozess mit dem Namen Shell Infrastructure Host steht für die sihost.exe. Sie befindet sich bei mir im Ordner C:\Windows\System32. Ich habe die Eigenschaften des Prozesses mit dem gleichen Prozess auf einem anderen PC verglichen der das Problem bislang noch nicht hatte. Die Größe, Speicherort, Version, Copyright sind identisch lediglich das Änderungsdatum unterscheidet sich um ein paar Tage. 

Laut Internet hängt das Problem wahrscheinlich mit der Standardfotoapp von Windows zusammen. Diese habe ich geupdated repariert und auch schon zurückgesetzt. Erfolglos. Auch die Problembehandlung hat nichts gefunden.

Seit dem August Patch hat sich das Problem etwas verbessert. Nun kommt es teilweise vor, dass der Prozess auch manchmal wieder selber zu seiner gewohnten Auslastung zurückkehrt.

Seit einigen Tagen habe ich gelesen, dass das Problem bereits in die Patchnotes für einen Patch der im Herbst für Windows 11 erscheinen soll aufgenommen wurde. Jedoch war hier nur von Windows 11 und nicht von Windows 10 die Rede.

Meine Frage ist nun wie groß ist die Wahrscheinlichkeit, dass es sich bei diesem Problem um Maleware handelt bzw. was kann man nun noch unternehmen um das Problem zu beheben?

PC, Computer, Foto, Software, Windows, Microsoft, App, Betriebssystem, Datei, Technik, Virus, Notebook, CPU, Elektronik, IT, Installation, Update, Bug, .exe, HDD, Malware, Patch, SSD, Virenscanner, schadware, Windows 10, fotoapp, Windows 11, Laptop
Warum hat Steam mein gesamtes GTA 5-Spiel gelöscht?

Hey, ich habe gerade GTA 5 auf Steam heruntergeladen, das 105 GB groß war und einen ganzen Tag zum Herunterladen brauchte.

Als es endlich fertig war, wollte ich Grafikmods mit OpenIV darauf anwenden. Dafür habe ich den 105 GB großen "Grand Theft Auto V"-Ordner dupliziert, der im Steam-Ordner gespeichert war, um eine Version von GTA5 zum Modden und eine Vanilla-Version für's Onlinespielen zu haben.

Dann habe ich beide Ordner in „GTA ONLINE“ und „GTA MODDING“ umbenannt, um ihrem Zweck zu entsprechen (ich habe das alles im Steam-Ordner gemacht). Als ich dann versuchte, eines der Spiele auszuführen, leitete mich der Rockstar Games Launcher zu Steam weiter, weil es hieß, ich müsse etwas aktualisieren. Steam hat dann angefangen, ein Update für GTA herunterzuladen, das 102 GB groß war, und dann habe ich gesehen, dass der GTA-Ordner vollständig geleert wurde und nur noch 0 Bytes groß war. Zum Glück hatte ich noch einen der 105 GB GTA5-Ordner übrig, da ich sie ja dupliziert hatte. Also habe ich diesen Ordner auf seinen ursprünglichen Namen "Grand Theft Auto V" umbenannt und versucht, ihn mit Steam zu öffnen, aber dann wurde das Update erneut gestartet und alle ursprünglich heruntergeladenen Dateien wurden wieder entfernt. Jetzt habe ich keine Kopien von GTA5 mehr übrig und muss diese 102 GB nun also komplett herunterladen, was wahrscheinlich noch einen ganzen Tag dauern wird.

Jetzt frage ich mich, aus welchem Grund Steam/RockstarLauncher es gelöscht hat und was ich falsch gemacht habe. Weiss das jemand? Weil diese Dateien waren ja nicht beschädigt bzw. korrupt oder so, da ich sie lediglich umbenannt habe und davor hatte das Spiel noch einwandfrei funktioniert.

PC, Computer, Internet, Software, Windows, Datei, Technik, Mods, GTA, Modding, Rockstar Games, Steam, zocken, GTA V, Gta 5 Mods, Spiele und Gaming
EXIF Dateien?

Hey

ich habe eine Frag.

ich hatte letztes Jahr Dez - Jan Probleme mit meiner Freundin.und war dementsprechend viel unterwegs etc,letzt ging ich an ihr Geschäftshandy um ein paar gemeinsame Bilder rüber auf mein Handy zu senden.Da sah ein Bild von einem Typ und sie sagt sie kennt ihn nicht,und ein paar lkw bilder ( also immer mit dem gleichen Kennzeichen und gleicher lkw ). Als ich in die exif metadaten geschaut habe stand da folgendes:

Von WhatsApp gesichert >

Mittwoch, 29. Dezember 2021 um

14:11

@ 76cba10d-9017-48d9-930f-f27ac6if51eb

Keine Kamerainformationen

JPEG

Keine Objektivinformationen

2 MP • 1152 x 2048 • 175 KB

So ich sprach sie darauf an und sie sagte ah der lkw,das war vor deiner Zeit der wollte sich mit mir treffen. Ich sagte ihr ja gut aber da steht 29.12.21 sagte sie ja vielleicht hat das damit was zu tun weil sie 19.9.2021 ihre Bilder von Google auf iCloud verschoben hat.

Also sie wechselte am 19.9.21 von samsung auf iphone.Und ihr Cousin kennt sich mit IT aus weil er auch in dem Bereich arbeitet. Und sagte das kann sein das sich beim kopieren von Dateien von Android auf iOS das Datum komplett ändern kann.

Aber ich kann mir das nicht vorstellen,vor allem genau auf die 2 Monate wo wir Probleme hatten ? Das muss ja ein richtiger Zufall sein. Ich sagte ihr sag mir wer das ist oder ich gehe, irgendwann sagte sie ja ich hatte mit jemand geschrieben es tut mir leid.

Dann wurde ich sauer,und dann sagte sie nein das stimmt nicht ich wollte nur das du da bleibst. Deswegen sagte ich das. Aber sie ist immer noch der festen Meinung sie habe mit niemanden geschrieben sie hatte richtig arg geweint.

Aber hey,wenn man in die exif Daten schaut steht da halt das es in den 2 Monaten war wo wir Probleme hatten.

Geht das so einfach das sich in den exif Dateien locker selbst das Datum beim kopieren verfälschen kann ? und dann noch in die Zukunft?

ich habe leider keine Ahnung davon ich weiß das man datum und Uhrzeit bei den exif Dateien selbst ändern kann. Das weiß sie aber nicht.

könnt ihr mir helfen?
bin am verzweifeln,und ich weiß nicht an wen ich mich wenden soll.

lg Stephan und tut mir leid leid wegen den langen Text.

Computer, Datei, Fotografie, EXIF

Meistgelesene Beiträge zum Thema Datei