Dim ls As new System.Collections.Specialized.StringCollection ls.add("d:\test.jpg") ls.add("d:\test.xls") My.Computer.Clipboard.SetFileDropList(ls)
获取,如代码
Dim ls As System.Collections.Specialized.StringCollection = My.Computer.Clipboard.getFileDropList msgbox(ls.count) For Each s As object In ls msgbox(s) Next