«
»

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

This entry was posted by admin on 2009/12/07 at 23:00 under Windows, WSH. Tagged , , , . You can leave a response, or trackback from your own site. Follow any responses to this entry through the RSS 2.0 feed.

20 Comments

  1. naiste pidzaamad says:

    … [Trackback]

    […] Find More to that Topic: dragon-ark.com/archives/309 […]

    2021/07/22, 20:47

  2. xây dưng villa 2022 says:

    … [Trackback]

    […] Read More Information here on that Topic: dragon-ark.com/archives/309 […]

    2021/07/30, 12:39

  3. buy cc online says:

    … [Trackback]

    […] Find More Info here on that Topic: dragon-ark.com/archives/309 […]

    2021/08/22, 23:22

  4. sig sauer website says:

    … [Trackback]

    […] Read More Information here to that Topic: dragon-ark.com/archives/309 […]

    2021/09/01, 19:25

  5. ruger firearms rebate offers says:

    … [Trackback]

    […] Find More on that Topic: dragon-ark.com/archives/309 […]

    2021/09/18, 17:43

  6. fake sell rolex submariner says:

    … [Trackback]

    […] Find More Info here on that Topic: dragon-ark.com/archives/309 […]

    2021/09/28, 04:03

  7. kardinal stick says:

    … [Trackback]

    […] Information to that Topic: dragon-ark.com/archives/309 […]

    2021/10/16, 08:19

  8. World Market Link says:

    … [Trackback]

    […] There you can find 91444 more Information on that Topic: dragon-ark.com/archives/309 […]

    2021/10/31, 01:39

  9. Dark0de Market URL says:

    … [Trackback]

    […] Read More here on that Topic: dragon-ark.com/archives/309 […]

    2021/10/31, 02:26

  10. sagame says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/309 […]

    2021/11/13, 11:09

  11. สล็อตเว็บตรง says:

    … [Trackback]

    […] Find More on to that Topic: dragon-ark.com/archives/309 […]

    2021/12/08, 09:22

  12. Darknet says:

    … [Trackback]

    […] Here you will find 56954 additional Info on that Topic: dragon-ark.com/archives/309 […]

    2021/12/10, 20:27

  13. คาสิโนออนไลน์เว็บตรง says:

    … [Trackback]

    […] Find More Information here on that Topic: dragon-ark.com/archives/309 […]

    2021/12/19, 10:05

  14. mega888 says:

    … [Trackback]

    […] Read More Information here on that Topic: dragon-ark.com/archives/309 […]

    2022/01/16, 16:02

  15. buy cheap ccv says:

    … [Trackback]

    […] Here you can find 32615 additional Information to that Topic: dragon-ark.com/archives/309 […]

    2022/02/21, 13:04

  16. slot999 says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/309 […]

    2022/03/03, 10:43

  17. dumps websites says:

    … [Trackback]

    […] Read More on on that Topic: dragon-ark.com/archives/309 […]

    2022/03/06, 14:52

  18. สล็อตวอเลท ไม่มีขั้นต่ำ says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/309 […]

    2022/03/19, 10:41

  19. google.je says:

    … [Trackback]

    […] There you can find 2408 additional Info on that Topic: dragon-ark.com/archives/309 […]

    2022/04/06, 02:58

  20. สล็อตเว็บตรง says:

    … [Trackback]

    […] Find More Info here to that Topic: dragon-ark.com/archives/309 […]

    2022/05/10, 15:49

Leave a Reply