7451
社区成员
- 主页
关于文件操作的面试题
把src中更新的文件备份到dst文件夹下,并把dst文件夹中多余的文件删除掉.
（注：src中有一个EXCEL文件和一个文本文件。dst中也一样有同名的两个文件，但多一个压缩文件。）
（注：src中有一个EXCEL文件和一个文本文件。dst中也一样有同名的两个文件，但多一个压缩文件。）
...全文
请发表友善的回复…
发表回复
Sandrer 2007-12-12
首先把dst文件夹整个删除
接着再把src文件夹中的所有文件全部转移到dst文件夹中
你可以使用FileSystemObject组件,这个挺方便的~
代码自己慢慢研究
接着再把src文件夹中的所有文件全部转移到dst文件夹中
你可以使用FileSystemObject组件,这个挺方便的~
代码自己慢慢研究
elia117 2007-12-12
是用VB实现!!!
cangwu_lee 2007-12-12
DOS 命令？
copy src\*.* dst
del dst\*.rar
REM 就當作是rar的壓縮文件了
copy src\*.* dst
del dst\*.rar
REM 就當作是rar的壓縮文件了
东方之珠 2007-12-12
VB6 Code:
Kill "c:\dst\*.*"
FileCopy "c:\src\*.xls","c:\dst\*.xls"
FileCopy "c:\src\*.txt","c:\dst\*.txt"
Kill "c:\dst\*.*"
FileCopy "c:\src\*.xls","c:\dst\*.xls"
FileCopy "c:\src\*.txt","c:\dst\*.txt"
zspdecember 2007-12-12
Dim fs As New Scripting.FileSystemObject
Private Sub Command1_Click()
Dim str1, str2 As String
str1 = "C:\dir1\*.*"
str2 = "C:\dir2\"
Kill str2 & "*.*"
fs.CopyFile str1, str2
End Sub
可以用，不过文件打开时不行，文件不存在时也不能删，呵呵。加个判断吧。
Private Sub Command1_Click()
Dim str1, str2 As String
str1 = "C:\dir1\*.*"
str2 = "C:\dir2\"
Kill str2 & "*.*"
fs.CopyFile str1, str2
End Sub
可以用，不过文件打开时不行，文件不存在时也不能删，呵呵。加个判断吧。
zspdecember 2007-12-12
1楼的在程序中建立个bat文件，里面写这个，用完再删除那个bat一样是用VB实现。呵呵。