如果不存在,如何在VB中创build一个文件夹?

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

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

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

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

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

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

这将确保目录在那里。

由于问题没有指定.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 

尝试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 

VB.NET? System.IO.Directory.Exists(stringpath)

试试这个: Directory.Exists(TheFolderName)Directory.CreateDirectory(TheFolderName)

(您可能需要: Imports System.IO

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

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

希望有所帮助。

(importSystem.IO)

 如果不是Directory.Exists(Path)那么
   Directory.CreateDirectory(path)
万一 
 If Not Directory.Exists(somePath) then Directory.CreateDirectory(somePath) End If 

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

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

干杯

只要这样做:

  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