ppxscr/sample.vbs at master · toroidj/ppxscr · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
'!*script
' マークエントリのすべての情報を順番に表示する

' ディレクトリ情報
MsgBox	"ScriptFullName:" & PPx.ScriptFullName & vbCrLf & _
	"ScriptName:" & PPx.ScriptName & vbCrLf & _
	"WindowIDName:" & PPx.WindowIDName & vbCrLf & _
	"WindowDirection:" & PPx.WindowDirection & vbCrLf & _
	"EntryIndex:" & PPx.EntryIndex & vbCrLf & _
	"EntryDisplayTop:" & PPx.EntryDisplayTop & vbCrLf & _
	"EntryDisplayX:" & PPx.EntryDisplayX & vbCrLf & _
	"EntryDisplayY:" & PPx.EntryDisplayY & vbCrLf & _
	"EntryMarkSize:" & PPx.EntryMarkSize & vbCrLf & _
	"DriveVolumeLabel:" & PPx.DriveVolumeLabel & vbCrLf & _
	"DriveTotalSize:" & PPx.DriveTotalSize & vbCrLf & _
	"DriveFreeSize:" & PPx.DriveFreeSize

' カーソルを動かす例
If PPx.EntryFirstMark = 0 Then
  MsgBox "マークはありません"
Else
  Do
    MsgBox	"EntryIndex:" & PPx.EntryIndex & vbCrLf & _
		"EntryName:" & PPx.EntryName & vbCrLf & _
		"EntryComment:" & PPx.EntryComment & vbCrLf & _
		"EntryAttributes:" & hex(PPx.EntryAttributes) & vbCrLf & _
		"EntrySize:" & PPx.EntrySize & vbCrLf & _
		"EntryMark:" & PPx.EntryMark
    If PPx.EntryNextMark = 0 then exit do
  Loop
End If

' カーソルを動かすことなく表示する例
' マークがないときはカーソル上のエントリを対象とする
' マークの有無を判定するときは PPx.EntryMarkCount が 0 であるかで判定する。
For Each item in PPx.Entry
  MsgBox	"Index:" & item.Index & vbCrLf & _
		"Name:" & item.Name & vbCrLf & _
		"ShortName:" & item.ShortName & vbCrLf & _
		"Attributes:" & hex(item.Attributes) & vbCrLf & _
		"Size:" & item.Size & vbCrLf & _
		"Created:" & item.DateCreated & vbCrLf & _
		"LastModified:" & item.DateLastModified & vbCrLf & _
		"LastAccessed:" & item.DateLastAccessed & vbCrLf & _
		"State:" & item.State & vbCrLf & _
		"Color:" & item.ExtColor & vbCrLf & _
		"Comment:" & item.Comment

Next