制作文件夹和复制文件

Question

我希望我的应用程序在驱动器C的特定文件夹（例如C：\ myFolder \ abc.mdb）中查找文件，如果找到则只是给出一条消息，如果没有，请在驱动器C：\中创建该文件夹，然后复制文件。

怎么做？ 谢谢 Furqan

Answer 1

您可以使用File中的Directory，Path和System.IO个对象，如下所示：

Imports System.IO

...

Dim path As String = "C:\myFolder\abc.mdb"

If File.Exists(path) Then
     'TODO write code to create message'
Else
     Dim folder As String = Path.GetDirectoryName(path)
     If Not Directory.Exists(folder) then
         Directory.CreateDirectory(folder)
     End If
     'TODO code to copy file from current location to the newly created directory path'
     'i.e. File.Copy(FileToCopy, NewCopy)'
End If