Thema Datum  Von Nutzer Rating
Antwort
24.09.2022 11:22:52 André Hüller
Solved
24.09.2022 20:27:44 Mase
Solved
25.09.2022 00:34:43 xlKing
Solved
Blau Installationsdatum einer Exe abfragen
27.09.2022 17:03:49 Gast22388
Solved
26.09.2022 08:42:05 Der Steuerfuzzi
Solved
26.09.2022 15:36:28 Gast3139
Solved
26.09.2022 15:39:02 Der Steuerfuzzi
Solved
27.09.2022 17:07:54 Gast53384
Solved
27.09.2022 17:06:11 Gast26299
Solved
01.10.2022 21:31:01 Gast7777
NotSolved
01.10.2022 22:12:24 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Gast22388
Datum:
27.09.2022 17:03:49
Views:
236
Rating: Antwort:
 Nein
Thema:
Installationsdatum einer Exe abfragen

Ich danke Dir sehr! Nachfolgend die ganze Arbeit im Zusammenhang. Damit habe ich nicht nur Kontrolle über alle installierten Exen, sondern beschleunige diese mit der Grafikkarte, in dem ich den Pfad in die Explorerauswahl unter System-Bildschirm-Grafik kopiere und hohe Leistung einstelle, mithin in wenigen Tagen fast alle meine 16.416 Exen auf DDR-6-RAM arbeiten. Ich habe an meinem PC praktisch keine Wartezeit mehr. Auch habe ich damit die Laptops meiner Söhne gepuscht. Allerdings habe ich noch keinen Weg gefunden, die WindowsApps zu beschleunigen, weil ich nicht weiß, wie ich dafür Zugriffsrecht bekomme.

Sub ExeListen() '20220927ah/ Mr. K. Email20220925
    
   List "B:\", "*.exe"
   List "C:\", "*.exe"
   List "D:\!IT\", "*.exe"
   List "D:\S\A\", "*.exe"
   List "E:\", "*.exe"
   
   'Worksheets.Add 'neues Blatt
   'Cells(1, 1) = "Dateiname"
   'Cells(1, 2) = "Erstelldatum"
   'Cells(1, 3) = "Pfad"
   With Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp).Offset(0, 2))
     .EntireColumn.AutoFit
     .Sort Key1:=Range(Cells(1, 2), Cells(.Rows.Count, 2)), order1:=xlDescending, Header:=xlYes
   End With
   
   'Application.StatusBar = False
   MsgBox "Fertig!", vbInformation

End Sub

Private Sub List(Folder As String, Filetype As String) '20220927ah/ Mr. K. Email20220925

   Dim fs, f, s, Datei As String
   Set fs = CreateObject("Scripting.FileSystemObject")
   
   'Application.StatusBar = "Ordner wird durchsucht: " & Folder
   DoEvents
   
   On Error Resume Next
   Datei = Dir(Folder & Filetype)
   
   Do While Datei > ""
    'If 1 + 1 = 2 Then 'erfasst alle Exen auf dem PC
    If fs.GetFile(Folder & Datei).DateCreated >= Date - 30 Then 'ermittelt die neuen Exen der letzten 30 Tage
      With Cells(Rows.Count, 1).End(xlUp)
        .Offset(1, 0) = Datei
        .Offset(1, 1) = fs.GetFile(Folder & Datei).DateCreated
        .Offset(1, 2) = fs.GetFile(Folder & Datei).ParentFolder
      End With
    End If
    Datei = Dir
   Loop
   
   For Each f In fs.getfolder(Folder).subfolders
     List f.Path & "\", Filetype
   Next f
   
End Sub

Sub SortiereSpalteB() '20220927ah

   Columns("B:B").NumberFormat = "yyyymmddhhmm"

End Sub

Sub ZeilenDoppelpfadeLöschen() '20220927ah
'vorher alles nach Spalte C sortieren A-Z

   Dim A, B As String
   Dim L, nL As Long
   L = 1
   
   Do While Cells(L, 3) > ""
     nL = L + 1
     A = Cells(L, 3).Value
     B = Cells(nL, 3).Value
     If A = B Then
         'Rows(nL).Select
         Rows(nL).Delete Shift:=xlUp
       Else
         L = nL
     End If
   Loop
   MsgBox "Fertig!", vbInformation
    
End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.09.2022 11:22:52 André Hüller
Solved
24.09.2022 20:27:44 Mase
Solved
25.09.2022 00:34:43 xlKing
Solved
Blau Installationsdatum einer Exe abfragen
27.09.2022 17:03:49 Gast22388
Solved
26.09.2022 08:42:05 Der Steuerfuzzi
Solved
26.09.2022 15:36:28 Gast3139
Solved
26.09.2022 15:39:02 Der Steuerfuzzi
Solved
27.09.2022 17:07:54 Gast53384
Solved
27.09.2022 17:06:11 Gast26299
Solved
01.10.2022 21:31:01 Gast7777
NotSolved
01.10.2022 22:12:24 Gast7777
NotSolved