如果不存在，如何在VB中创build一个文件夹？

我自己写了一个下载应用程序，这样我就可以轻松地从我的服务器上获取一组文件，并将它们全部放到一台安装有Windows的新电脑上，而不需要真正的上网。 不幸的是，我在创build我想要放入的文件夹时遇到了问题，不确定如何去做。

我想我的程序下载应用program files\any name here\

所以基本上我需要一个函数来检查文件夹是否存在，如果不存在，它会创build它。

Answer 1

 If(Not System.IO.Directory.Exists(YourPath)) Then System.IO.Directory.CreateDirectory(YourPath) End If 

Answer 2

在System.IO下，有一个叫Directory的类。 请执行下列操作：

 If Not Directory.Exists(path) Then Directory.CreateDirectory(path) End If 

这将确保目录在那里。

Answer 3

由于问题没有指定.NET，这应该在VBScript或VB6中工作。

 Dim objFSO, strFolder strFolder = "C:\Temp" Set objFSO = CreateObject("Scripting.FileSystemObject") If Not objFSO.FolderExists(strFolder) Then objFSO.CreateFolder(strFolder) End If 

Answer 4

尝试System.IO.DirectoryInfo类。

来自MSDN的样本：

 Imports System Imports System.IO Public Class Test Public Shared Sub Main() ' Specify the directories you want to manipulate. Dim di As DirectoryInfo = New DirectoryInfo("c:\MyDir") Try ' Determine whether the directory exists. If di.Exists Then ' Indicate that it already exists. Console.WriteLine("That path exists already.") Return End If ' Try to create the directory. di.Create() Console.WriteLine("The directory was created successfully.") ' Delete the directory. di.Delete() Console.WriteLine("The directory was deleted successfully.") Catch e As Exception Console.WriteLine("The process failed: {0}", e.ToString()) End Try End Sub End Class 

Answer 5

VB.NET？ System.IO.Directory.Exists（stringpath）

Answer 6

试试这个： Directory.Exists(TheFolderName)和Directory.CreateDirectory(TheFolderName)

（您可能需要： Imports System.IO ）

Answer 7

Directory.CreateDirectory（）应该这样做。 http://msdn.microsoft.com/en-us/library/system.io.directory.createdirectory(VS.71).aspx

另外，在Vista中，你可能不能直接写入C：除非你以pipe理员身份运行它，所以你可能只是想绕过它，并在C的子目录中创build所需的目录：（我会说一个很好的做法，无论如何要跟随 – 它是不可思议的有多less人只是倾倒垃圾到C：

希望有所帮助。

Answer 8

（importSystem.IO）

 如果不是Directory.Exists（Path）那么
   Directory.CreateDirectory（path）
万一 

Answer 9

 If Not Directory.Exists(somePath) then Directory.CreateDirectory(somePath) End If 

Answer 10

您应该尝试使用文件系统对象或FSO。 属于这个对象的方法有很多，检查文件夹是否存在以及是否创build新的文件夹。

Answer 11

我看到这将如何工作，将创build一个对话框，允许用户命名文件夹，并将其放置在你想要的位置的过程是什么。

干杯

Answer 12

只要这样做：

  Dim sPath As String = "Folder path here" If (My.Computer.FileSystem.DirectoryExists(sPath) = False) Then My.Computer.FileSystem.CreateDirectory(sPath + "/<Folder name>") Else 'Something else happens, because the folder exists End If 

我声明文件夹path为一个string（sPath），这样如果你多次使用它，它可以很容易地改变，但也可以通过程序本身来改变。

希望能帮助到你！

-nfell2009