要求:
在VB下用代码实现文件的复制,有如下要求:
1、将文件A下的文件复制到另一文件夹B下
2、文件名为随机建立,是已当天的日期为文件名,即为“YYYYMMDD”。
3、文件夹路径最好使用变量
那位知道,请帮忙。
在VB下用代码实现文件的复制,有如下要求:
1、将文件A下的文件复制到另一文件夹B下
2、文件名为随机建立,是已当天的日期为文件名,即为“YYYYMMDD”。
3、文件夹路径最好使用变量
那位知道,请帮忙。
解决方案 »
- 我自己做了两个SQL数据库,一个另数据库1,另一个数据库2,数据库1里有几张表,想把其中一张表符合要求的纪录插入数据库2的某张表里,这表的字段是升序排列的!!谢
- 有人有把位图转换为矢量图的代码吗?
- 怎样--返回EXCEL表中单元格的内容??
- vb中如何获取窗体句炳 并向这个句炳发消息?
- 两个窗体传值问题
- 请问如何使窗体的移动范围仅在屏幕内!
- 源代码下载学习网站
- 关于Rnd()函数,为什么每次输出的字符串 S 都相同?
- 十万火急SOS!笔记本采用USB接口视频采集盒,如何显示视频?分不够另开帖子再加
- 求助 帮忙看下下面的VB代码说的是什么!!
- welcome to VB_like基地--一起学习/交流||群号:8056852
- VB 简单问题,来回切换窗口时,
filename1=app.path & "\a\1.txt"
filename2=app.path & "b\"
filename2=filename2 & Format(Now, “yyyymmdd”) & ".txt"
filecopy filename1,filename2
kill filename1
是复制还是移动啊?
如果是移动,用语句
Name oldFileName As newFileName
就可以了
将文件夹A下的文件复制到文件夹B下,而且移动后的文件名依次为:
假设今天是2000-10-10
20001010_0
20001010_1
....
20001010_N
如果存在文件,则自动修改为20001010_N_21:SHGetPathFromIDList和SHBrowseForFolder函数来选择A文件夹和B文件夹
并保存在两个变量中,StrA,StrB
2:然后用FindFirstFile和FindNextFile来遍利整个A文件夹,并且每找到一个文件,并把旧文件名和生成的新文件名放入两个数组中保存起来。
Count=Count+1
Redim Preserve OldName(Count)
Redim Preserve NewName(Count)
OldName(Count)=...
NewName(Count)=Format(Date,"yyyymmdd")+"_"+Cstr(Count)3:最后用一个循环将文件复制到目录StrB中去!
For i=0 to Count
If Len(StrB & NewName)<>0 then
if msgbox ("要覆盖吗?",vbYesNo)=vbNo then NewName(i)=NewName(i)+ "_2"
end if
FileCopy StrA+OldName(i) StrB+NewName(i)
Next i4:对了,不要忘记错误捕捉,可能复制的文件已经打开,就会出错。
简单程序如下:(检测文件是否已经存在的请自行编写)
Set fs = CreateObject("Scripting.FileSystemObject")fs.CopyFile "Yourfilename", "Yourfilename(" + Str(Date) + ").mdb", False
MsgBox "数据备份成功!"
Set fs = Nothing
运行结果如下:轴承记录编辑备份(2005-3-17).mdb