文件对话框多选 

Fn GetMutiOpenFileName Title:"Select Files" FileFilter:"All Files (*.*)|*.*" = (
 local OpenFileDialog,OpenFileResult OpenFileDialog = DotNetObject "System.Windows.Forms.OpenFileDialog"
 OpenFileDialog.title = Title
 OpenFileDialog.Multiselect = true
 OpenFileDialog.Filter = FileFilter
 OpenFileDialog.FilterIndex = 1
 OpenFileResult = OpenFileDialog.ShowDialog()
 if OpenFileResult.Equals OpenFileResult.OK then (
 OpenFileDialog.FileNames 
 ) else Undefined 
)
 c=GetMutiOpenFileName()
posted @ 2019-12-27 23:15  HU_M  阅读(232)  评论(0)  编辑  收藏  举报