Orion9
 
  
 
  | 
		
			
				 Posted: Tue Dec 24, 2024 12:48    Post subject:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | yahuu wrote: | 	 		  | В настоящее время я реализую это следующим образом. Или есть лучший способ? | 	  
 
Можно использовать объект List, как уже написали выше. Сейчас, наверное, это самый простой и лучший способ, особенное если использовать его свойство Text:
 
 
 	  | Code: | 	 		  SetHotkeyAction /K:A /H:F1 SelectedList
 
 
Func SelectedList()
 
   Local aSel = List()
 
   Local sPath = RequestCopyDataInfo("SP"), j, k = 0
 
   
 
   aSel.Text = GetSelectedItems(3, 0)
 
   
 
   OutputDebugString("Autorun: Selected=" & aSel.Count)
 
   For j = 0 To aSel.Count - 1
 
       OutputDebugString("Autorun: Item[" & j & "]=" & sPath & aSel[j])
 
       If FileExist(sPath & aSel[j]) Then k += 1
 
   Next
 
   ShowHint("Selected: " & aSel.Count & auCRLF & "Processed: " & k)
 
   Free(aSel)
 
EndFunc  | 	 
  | 
			 
		  |