Question

我已经编程了我的自我卡住并需要一些帮助

我编写了一种方法，可以将模板从一个目录转移到另一个目录

     'My.Computer.FileSystem.CopyDirectory("C:\MYapp\TEMPLATES\" & ComboBox1.Text, "C:\Myapp\PROJECTS\" & form1.label1.Text & "\Template")

但是如果文件已经存在，那么orriginals就会被覆盖。不知何故，我需要能够在复制过程中用"C:\MYapp\TEMPLATES\" & ComboBox1.Text重命名文件

还有办法还是这样吗？

我正在使用VB.net

EDDIT：

For Each CONTENTS_FILES In System.IO.Directory.GetFiles("C:\myapp\TEMPLATES\" & ComboBox1.Text)

    ' do whatever wtih filename
    System.IO.File.Copy("C:\myapp\TEMPLATES\" & ComboBox1.Text & CONTENTS_FILES, C:\myapp\PROJECTS\" & PROJECTS.PROJECTlabel.Text & "\Template\" & TimeOfDay & CONTENTS_FILES)
next

但是我的代码现在丢失了？

Answer 1

如果您想避免覆盖现有文件，则需要一次复制一个文件并测试每个文件是否已存在：

If System.Io.File(THISFILENAME).Exists Then
    ' use a different name
Else
     ' continue
End If

复制目录覆盖现有文件

1 个答案: