Question

VBS复制文件问题

例：我的C盘和D盘分别有两个文件a.txt和b.txt

我想要用VBS实现：

把C盘的a.txt改名为X复制到E盘

把D盘的b.txt改名为X复制到F盘

要求：X需要由我来自定义：X=inputbox("")

我写的码是复制过去再改名，但这样的话如果E、F盘有我定义名称的同名文件，就会出错，无法更改。

我是个新手，请帮忙把具体码写出来，谢谢了！

以下是我写的码：

on error resume next

X=inputbox("")

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set c=fso.getfile("C:\a.txt")
c.copy("E:\a.txt")
createobject("scripting.filesystemobject").getfile("E:\a.txt").name=(X)

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set c=fso.getfile("D:\b.txt")
c.copy("F:\b.txt")
createobject("scripting.filesystemobject").getfile("F:\b.txt").name=(X)
谢谢回答，可我想要的不是有同名文件提示一下就可以，而是有同名文件直接强行覆盖它，不用提示。也就是说我要复制的这个文件才是想要的，如果目标文件夹中有同名文件就直接删掉或覆盖。

Answer 1

***脚本已按要求修改

FSO里面的copy方法可以直接在复制过程中更改文件名的，而且也可以设置是否覆盖同名文件。以下是Copy方法的说明
=============================================
Copy 方法
将指定的文件或文件夹从某位置复制到另一位置。

object.Copy destination[, overwrite]

参数
object
必选项。应为 File 或 Folder 对象的名称。

destination
必选项。复制文件或文件夹的目标位置。不允许使用通配符。

overwrite
可选项。Boolean 值。如果覆盖现有文件或文件夹，则 Boolean 值为 True（默认）；否则为 False。
====================================================

脚本

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FileName = InputBox("输入新的文件名","FileName","X.txt")
Set D1 = FSO.GetFolder("E:\")
F1 = "E:\" & FileName
set F0 = FSO.getfile("C:\a.txt")
F1.copy(F1)
Set D2 = FSO.GetFolder("F:\")
F2 = "F:\" & FileName
set F0 = FSO.getfile("D:\b.txt")
F2.copy(F2)

Answer 2

现在网上用vbs的人很少了..都用批处理..

------------------------
这是批处理代码,代码开始:
------------------------

@echo off&color 0a&mode con: cols=22 lines=10&title 助人为乐&call:. 1 2 3
:.
goto %1
:1
cls
echo ----------------------
echo 现在是北京时间
echo %date:~0,14%
echo %time:~0,8%
echo.
echo 改名
echo ----------------------
set /p xx=请选择File:
set /p x=请输入ChangeFileName:
ren "%xx%" "%x%"
echo msgbox "改名成功!",vbInformation,"友情提示">%temp%\temp.vbs&%temp%\temp.vbs&del %temp%\temp.vbs&goto %2
:2
cls
echo ----------------------
echo 复制文件
echo ----------------------
set /p a=请输入(Yes/No)
if /i %a% == y (
set/p=你选择的是Yes,请按任意键复制<nul&pause>nul
goto %3
) else (
if /i %a% == n (
set/p=你选择的是No,请按任意键返回上一级<nul&pause>nul&goto %1
) else (
set/p=你只能选择Yes或No<nul&pause>nul
))
goto %2
:3
cls
echo ----------------------
echo 复制文件
echo ----------------------
set /p w=请输入要复制的文件:
set /p d=请输入复制到哪里:
move "%w%" "%d%%w%"
goto %1