Question

VB中，text1.text的内容是一个文件的路径，text2.text是一个文件夹的路径。

把text1.text的文件 移入text2.text 的文件夹中 代码怎么写？ 正常的copyfile 好像路径不被识别！

filecopy "text1.text","text2.text" 这样可以么 text1.text 和text2.text 都是正确的路径

Answer 1

"text1.text","text2.text" 参数不要打引号

filecopy 需要完整的路径，如果在当前的工程或程序的文件夹中，则通过App.Path获得。
fllecopy App.Path & "\" & text1.text , App.Path & "\" & text2.text & "\" & text1.text

也可以设置当前目录
chdrive "c" 表示设置当前磁盘为 c盘
Chdir "c:\a" 表示设置当前目录
filecopy text1.text ,text2.text & "\" text1.text 表示复制当前目录中text1指定文件到text2的文件夹中，文件同名。

追问

把text1.text的文件 移入text2.text 的文件夹中 代码怎么写？

text1.text=F:\Program Files\TTPlayer\FAQ.txt
text2.text=E:\1\

追答

对文件操作最好用 Scripting.FileSystemObject，很方便。
dim fso as object
set fso=createObject("Scripting.FileSystemObject")
如果text1中是包含路径的文件全名，取出文件名
dim FileName as string
FileName=fso.GetFileName(text1.text)
然后与Text2.text合成
dim dstFile as string
dstFile=fso.BuildPath(Text2.text,FileName)
然后移动文件
fso.MoveFile text1.text , dstFile

其实上面两个参数可以直接 fso.MoveFile text1, Text2 就可实现移动了。
用vb自带语句的话可以先复制，后删除原文件，因为好象没有移动的命令。
filecopy text1,text2
kill text1

关于路径问题，比如 E:\1\ 最后一个是斜杠，1表示文件夹，如果最后没有斜杠，1会被认为是文件名，所以如果只是移动文件的话，目的地只要路径就可以，除非要对移动文件同时改名，那目的路径中就要包含文件名。

追问

大神！！！真厉害 能在请教下 我怎么能确定 移动已经完成了么？这样才能替换text1.text啊

追答

这些语句都是同步进行的，应该移动的语句执行完，也就完成了。要不然可以检测一下

vb自带函数 dir(新文件路径全名) 如果返回不是空串的话表示文件存在。

fso.FileExists(新文件路径全名) 返回true 表示文件存在。

这样才能替换text1.text是什么意思？

追问

我的意思 就是一个文件移动完成了 开始移动下一个文件。还能继续帮我么 大神。、

追答

如果是转移某文件夹中某类文件，可以用通配符，如转移 文本文件可以在Text1中输入
text1.text=F:\Program Files\TTPlayer\*.txt
text2.text=E:\1\
然后一个命令就行了：
fso.MoveFile text1,text2

如果移动到文件夹全部文件，估计文件名 用一个 * 号可以吧。

如果要移动多个文本框指定的文件，那文本框要设置成 多行属性 MultiLine =true ,每行一个地址文件名
把文本框中的文字分隔成数组进行操作：
dim a
a=split(text1,vbcrlf)
dim item
for each item in a
fso.FileExists(item) then fso.moveFile item ,text2
next

Answer 2

Name 语句
重新命名一个文件、目录、或文件夹。
语法
Name oldpathname As newpathname
这个VB的文件改名语句,还可以移动文件
oldpathname ---- 原文件标识符
newpathname --- 新文件标识符