vbscriptにてOutlook Exressのメールファイル(.dbx)の一覧とサイズを出力する例です。
Option Explicit
'On Error Resume Next
'#######################################################
'# Global-Configration #
'#######################################################
Const OpenTextFileForReading = 1
Const OpenTextFileForWriting = 2
Const OpenTextFileForAppending = 8
Const HKEY_CURRENT_USER = &H80000001
'*************************
' Call Main Program
'*************************
Main()
'*************************
' Start Main Program
'*************************
Sub Main()
'#######################################################
'# Local-Configration #
'#######################################################
Dim OBJ_WshShell 'WSH Shell Object
Dim OBJ_FSO 'File System Object
Dim OBJ_Folders 'Folder Object
Dim COL_Folders 'Collection Object
Dim STR_FileName 'String Object
Dim STR_StoreOwner 'String Object
Dim STR_StorePath 'String Object
Dim STR_LogFolder 'String Object
Dim STR_LogFile 'String Object
Dim STR_Temp 'String Object
Dim i
Set OBJ_WshShell = WScript.CreateObject("WScript.Shell")
Set OBJ_FSO = WScript.CreateObject("Scripting.FileSystemObject")
'【Get Mail Store Owner & Mail Store Path】
STR_StoreOwner = OBJ_WshShell.RegRead("HKEY_CURRENT_USER\Identities\Last User ID")
If Err.Number <> 0 Then
STR_Work = MsgBox("処理実行中にエラーが発生しました。処理を続行出来ません。プログラムを中止します。" & vbCrLf & "Error Code: RegRead Error-001" ,vbOkOnly + vbCritical,"エラーが発生しました")
Err.Clear
Set OBJ_FSO = Nothing
WScript.Quit 1
End If
STR_StorePath = OBJ_WshShell.RegRead("HKEY_CURRENT_USER\Identities\" & STR_StoreOwner & "\Software\Microsoft\Outlook Express\5.0\Store root")
If Err.Number <> 0 Then
STR_Work = MsgBox("処理実行中にエラーが発生しました。処理を続行出来ません。プログラムを中止します。" & vbCrLf & "Error Code: RegRead Error-002" ,vbOkOnly + vbCritical,"エラーが発生しました")
Err.Clear
Set OBJ_FSO = Nothing
WScript.Quit 1
End If
WScript.Echo "No,ファイル名,ファイルサイズ(MB)"
'【Get MailBox Folder & File-Size】
Set OBJ_Folders = OBJ_FSO.GetFolder(STR_StorePath)
Set COL_Folders = OBJ_Folders.Files
i = 1
For Each STR_FileName In COL_Folders
If LCase(Right(STR_FileName,4)) = ".dbx" Then
WScript.Echo i & "," & STR_FileName & "," & Round(STR_FileName.Size / 1000000,1)
i = i + 1
End If
Next
End Sub
naiste pidzaamad says:
… [Trackback]
[…] Find More to that Topic: dragon-ark.com/archives/309 […]
2021/07/22, 20:47xây dưng villa 2022 says:
… [Trackback]
[…] Read More Information here on that Topic: dragon-ark.com/archives/309 […]
2021/07/30, 12:39buy cc online says:
… [Trackback]
[…] Find More Info here on that Topic: dragon-ark.com/archives/309 […]
2021/08/22, 23:22sig sauer website says:
… [Trackback]
[…] Read More Information here to that Topic: dragon-ark.com/archives/309 […]
2021/09/01, 19:25ruger firearms rebate offers says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/309 […]
2021/09/18, 17:43fake sell rolex submariner says:
… [Trackback]
[…] Find More Info here on that Topic: dragon-ark.com/archives/309 […]
2021/09/28, 04:03kardinal stick says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/309 […]
2021/10/16, 08:19World Market Link says:
… [Trackback]
[…] There you can find 91444 more Information on that Topic: dragon-ark.com/archives/309 […]
2021/10/31, 01:39Dark0de Market URL says:
… [Trackback]
[…] Read More here on that Topic: dragon-ark.com/archives/309 […]
2021/10/31, 02:26sagame says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/309 […]
2021/11/13, 11:09สล็อตเว็บตรง says:
… [Trackback]
[…] Find More on to that Topic: dragon-ark.com/archives/309 […]
2021/12/08, 09:22Darknet says:
… [Trackback]
[…] Here you will find 56954 additional Info on that Topic: dragon-ark.com/archives/309 […]
2021/12/10, 20:27คาสิโนออนไลน์เว็บตรง says:
… [Trackback]
[…] Find More Information here on that Topic: dragon-ark.com/archives/309 […]
2021/12/19, 10:05mega888 says:
… [Trackback]
[…] Read More Information here on that Topic: dragon-ark.com/archives/309 […]
2022/01/16, 16:02buy cheap ccv says:
… [Trackback]
[…] Here you can find 32615 additional Information to that Topic: dragon-ark.com/archives/309 […]
2022/02/21, 13:04slot999 says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/309 […]
2022/03/03, 10:43dumps websites says:
… [Trackback]
[…] Read More on on that Topic: dragon-ark.com/archives/309 […]
2022/03/06, 14:52สล็อตวอเลท ไม่มีขั้นต่ำ says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/309 […]
2022/03/19, 10:41google.je says:
… [Trackback]
[…] There you can find 2408 additional Info on that Topic: dragon-ark.com/archives/309 […]
2022/04/06, 02:58สล็อตเว็บตรง says:
… [Trackback]
[…] Find More Info here to that Topic: dragon-ark.com/archives/309 […]
2022/05/10, 15:49Godrej Splendour says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/309 […]
2022/06/10, 00:47nova88 says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/309 […]
2022/06/15, 07:09Alyssa SALT - love song says:
… [Trackback]
[…] Here you can find 24722 more Info on that Topic: dragon-ark.com/archives/309 […]
2022/06/22, 23:24Devops Companies says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/309 […]
2022/07/06, 05:12Buy American Eagle Handgun (250 Rounds) 9mm Luger says:
… [Trackback]
[…] Here you will find 34056 more Info on that Topic: dragon-ark.com/archives/309 […]
2022/07/06, 08:25sbo says:
… [Trackback]
[…] Info to that Topic: dragon-ark.com/archives/309 […]
2022/07/15, 18:31ตัดกราม says:
… [Trackback]
[…] Here you can find 98581 additional Information to that Topic: dragon-ark.com/archives/309 […]
2022/07/19, 08:15แทงบอลโลก 2022 says:
… [Trackback]
[…] Here you can find 16607 more Info to that Topic: dragon-ark.com/archives/309 […]
2022/08/09, 07:53sbobet says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/309 […]
2022/08/14, 03:20สล็อตวอเลท ไม่มีขั้นต่ำ says:
… [Trackback]
[…] Find More to that Topic: dragon-ark.com/archives/309 […]
2022/08/17, 07:57https://colourcee.bet/ says:
… [Trackback]
[…] Information on that Topic: dragon-ark.com/archives/309 […]
2022/08/19, 08:31Daily Prayers says:
… [Trackback]
[…] Find More to that Topic: dragon-ark.com/archives/309 […]
2022/08/21, 22:59คลิปหลุดใหม่ says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/309 […]
2022/08/23, 09:11try here says:
… [Trackback]
[…] Here you will find 70197 more Information on that Topic: dragon-ark.com/archives/309 […]
2022/08/24, 05:59Darknet says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/309 […]
2022/08/31, 23:22Darknet Support says:
… [Trackback]
[…] Info on that Topic: dragon-ark.com/archives/309 […]
2022/08/31, 23:29cabo san lucas real estate says:
… [Trackback]
[…] Find More Info here to that Topic: dragon-ark.com/archives/309 […]
2022/09/02, 01:33https://vsmb.vn says:
… [Trackback]
[…] Find More Information here on that Topic: dragon-ark.com/archives/309 […]
2022/09/13, 21:01quality assurance says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/309 […]
2022/09/16, 23:16Guns For Sale Online says:
… [Trackback]
[…] Here you can find 94989 additional Information on that Topic: dragon-ark.com/archives/309 […]
2022/09/21, 08:02buy magnum research gun says:
… [Trackback]
[…] Find More here on that Topic: dragon-ark.com/archives/309 […]
2022/09/21, 08:27c2bit cards says:
… [Trackback]
[…] Find More here to that Topic: dragon-ark.com/archives/309 […]
2022/09/28, 11:42รับจำนองที่ดิน says:
… [Trackback]
[…] Find More on on that Topic: dragon-ark.com/archives/309 […]
2022/10/03, 03:02