从网上查到的,好用。分享给大家
Dim path As New System.Collections.Specialized.StringCollection path.Add("D:\aaaa.xml") My.Computer.Clipboard.SetFileDropList(path)