vb 托放LISTBOX中的某行,是字符型(如“D:\123.mp3“),但我想让它托的是实际的文件,代码怎么写?

来源:百度知道 编辑:UC知道 时间:2024/05/28 00:06:21
就是千千静听那种托文件的功能(从歌曲列表中托一首歌到桌面)列表里面的字符串都是路径,托到桌面或其它应用程序(如:QQ聊天窗口)后让这个路径变成文件(MP3 OR WMA)。

a="d:\123.mp3" '把文件路径放到变量中
b=instr(a,"\") '找出"\" 在字符串的位置
c=mid(a,b) '把 a中第 b个数据后的 字符存放到c中

最后你只要 list1.list1(0)=c

如果有多个的话,那就把他做成过程

function o(a as string )
a="d:\123.mp3" '把文件路径放到变量中
b=instr(a,"\") '找出"\" 在字符串的位置
c=mid(a,b) '把 a中第 b个数据后的 字符存放到c中
o=c '把c的字符返回到o中
end function

==========================================
哦~你是要把文件拖放复制啊。。

你首先把你拖的文件路径付给一个变量
然后 获取你要拖放的路径
最后就 filecopy 原来路径 新路径
就行了把