请问这个vb怎么写

来源：百度知道 编辑：UC知道 时间：2024/06/14 01:55:55
如果想要将C盘中名字为1的文件夹里面的文件复制到D盘里面按照星期来命名的文件夹里面 要怎么写呢?
比如今天星期一 就是将C盘的1文件夹里面的文件复制到D盘里名为"星期一"的文件夹里面 如果是星期二 则复制到D盘里面"星期二"的文件夹里面 我是这么写的 因为不知道如何获取星期几 也不知道cmd里面的文件夹路径里面如何调用变量 所以把自己写的贴在下面 希望高手按照我的来改一下 请教了 呵呵
-------------------------------------------------------------------------------dim a
set a=WScript.CreateObject("WScript.Shell")
a.Run ("cmd /c robocopy C:\1 D:\*** /xa:h /mir"),0
-------------------------------------------------------------------------------
请问怎么获取系统的"星期" 还有上面的一段要加些什么 "***"处应该怎么写
感谢了

星期几：

Weekday(Date, vbMonday)

Private Sub Command1_Click()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.GetFolder("C:\1").Copy "D:\星期" & Choose(Weekday(Date, vbMonday), "一", "二", "三", "四", "五", "六", "日"), True
End Sub

print mid(format(now,"long date"),1,3)
星期日

NewFolder = "D:\星期" & Choose(Weekday(Date, vbMonday), "一", "二", "三", "四", "五", "六", "日")
MkDir NewFolder
CopyFile "C:\1\file.txt", NewFolder & "\file.txt"