| |
下記のスクリプト(障害切り分けのため簡略化したテストプロを作成しました)を実行
すると、
2回目のGetList関数内でファイラーが落ちます。
ただし、refresh無しだと落ちません。
また、refresh有りでもGetList内のGetItemTextの行が無いかGetItemPathの場合も落
ちません。
したがって、refreshとGetItemTextの組み合わせで何か不具合が有るものと推定しま
す。
ファイルは適当にa.txtなど1個あれば落ちますので調査よろしくお願いします。
Windows 10 pro 64bit バージョン2004 OSビルド 19041.1165
ファイラー 64bit edition: 1.62と1.64の両方で確認
dim count
count = GetList("*.txt")
msgbox count
refresh
count = GetList("*.txt")
msgbox count
function GetList(cond)
dim selnum, iItem, strFile
SelectItem cond, 0
selnum = GetSelectedCount()
If selnum > 0 Then
iItem = GetNextItem(-1, 2)
Do While iItem >= 0
strFile = GetItemText(iItem)
' strFile = GetItemPath(iItem)
iItem=GetNextItem(iItem, 2)
Loop
end if
GetList = selnum
end function
|
|