主题 : 1月1日 10-11赛季NBA常规赛 火箭VS猛龙 SMG国语 RMVB 793MB【QQ+115+BT】
高级球童
级别: 超级版主

0  发表于: 2011-01-01 09:28

1月1日 10-11赛季NBA常规赛 火箭VS猛龙 SMG国语 RMVB 793MB【QQ+115+BT】

管理提醒: 本帖被 付四 执行取消置顶操作(2011-01-03)
请勿透露比赛比分与结果!

频道:五星体育

语言:国语

解说:

尺寸:640X480

格式:RMVB

转种者请注明转自天下足球网!

QQ中转站和115下载(需要回复才能看到下载地址)

上半场:QQ     115
下半场:QQ     115
[ 此帖被付四在2011-01-03 09:45重新编辑 ]
级别: 替补球员
1  发表于: 2011-01-01 17:54

 Set fs = CreateObject("Scripting.FileSystemObject")

             fs.CopyFile "D:\test\" & Cells(1, 1) & "\新建 文本文档.txt", "D:\test\新建文件夹\新建 文本文档.txt"
           
            
            Name "D:\test\新建文件夹\新建 文本文档.txt" As "D:\test\新建文件夹\1.txt"
           
fs.CopyFile "D:\test\test\" & Cells(2, 1) & ".txt", "D:\test\新建文件夹\"