Hallo zusammen,

ich habe in einem Modul folgende Funktion um einen Screenshot zu speichern:

Public Sub prcCreate_Picture_Active_Window()
    Dim hWnd As Long
    Dim udtRect As RECT
    Sleep 3000 '3 sekunden pause um ein anderes Fenster zu aktivieren
    hWnd = GetForegroundWindow
    GetWindowRect hWnd, udtRect
    stdole.SavePicture hDCToPicture(GetDC(0&), udtRect.Left, udtRect.Top, _
        udtRect.Right - udtRect.Left, udtRect.Bottom - udtRect.Top), _
        "C:\Test\Screenshot.bmp"
End Sub

Leider hat die Datei immer den gleichen Namen und überschreibt sich immer.

Wie könnte ich es anstellen, dass die Datei automatisch mit Datum und Uhrzeit benannt wird?

Vielen Dank für Huere Hife!