|
お世話になります。
フォルダの選択されたファイル名の取得をしようと以下を試してみましたが、両方取得できませんでしたので原因を教えて頂けないでしょうか?
?@
id = GETID("C:\")
wks = GETSLCTLST(id, 3)
while wks <> ""
print TOKEN("<#TAB>", wks)
wend
?A
const LVM_GETNEXTITEM = $1000 + 12;
const LVIS_SELECTED = $0002;
DEF_DLL SendMessageA(HWND, LONG, LONG, LONG):LONG:user32.DLL
Dim ID = exec("Explorer.exe /E,/Select, C:\")
MsgBox("リストコントロールからアイテムを追加選択してください");
Dim hWnd = GetCtlHnd(ID, "SysListView32");
Dim n = GetItem(id, ITM_LSTVEW);
HashTbl hashFileList;
Dim i;
For i = 0 to n-1
Dim nIndex = GetSelectedItemList(hWnd, i-1);
IfB (-1 <> nIndex) Then
hashFileList[nIndex] = ALL_ITEM_LIST[nIndex];
EndIf
Next
For i = 0 To Length(hashFileList)-1
print hashFileList[i, HASH_VAL];
Next
Function GetSelectedItemList(hWnd, nIndex = -1)
Result = SendMessageA(hWnd, LVM_GETNEXTITEM, nIndex, LVIS_SELECTED);
FEnd
?B
また、VBAの FileDialog を UWSC で使用できるか教えて頂けないでしょうか?
Dim FileDialog As Object
Set FileDialog = Application.FileDialog(msoFileDialogFilePicker)
' ファイル選択ダイアログの設定
With FileDialog
.AllowMultiSelect = True ' 複数のファイルを選択できるようにする
.Show ' ダイアログを表示
よろしくお願いします。
|
No.1614 2023/08/10(Thu) 12:29:51
|
