Msg Box Pfad anzeigen
09.10.2022 09:47:55
Oraculix
In meiner Tabelle speichere ich per Commandbutton meine Arbeitsmappe und danch wird noch die Dateigröße in einer Msg Box angezeigt.
Frage kann man in die Msg Box noch zusäzulich den Pfad anzeigen lassen? Also Pfad wo die Datei gespeichert wurde und die Dateigröße
anzeigen in der Msg Box?
'Datei speichern und Zeigt Dateigröße in Mb'
Sub t()
Dim strDateipfad As String
Dim intMsg As Long, bytzeit As Long
bytzeit = 3000
strDateipfad = "D:\EMDB\HTML\!Filme.xlsm"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=strDateipfad
Application.DisplayAlerts = True
intMsg = MessageBoxTimeoutA(Application.hwnd, _
"Datei erfolgreich gespeichert" & Chr(10) & Chr(10) & _
"Die Größe der aktuellen Arbeitsmappe beträgt " & _
Round(FileLen(strDateipfad) / 1024000, 3) & " MB.", _
"Info", vbInformation, 0, bytzeit)
End Sub
Oraculix