it-swarm-id.com

Bagaimana cara membuat folder di VB jika tidak ada?

Saya menulis sendiri sedikit aplikasi pengunduhan sehingga saya dapat dengan mudah mengambil satu set file dari server saya dan memasukkan semuanya ke komputer baru dengan instalasi Windows yang bersih, tanpa benar-benar masuk ke internet. Sayangnya saya mengalami masalah dalam membuat folder yang ingin saya masukkan ke dalamnya dan tidak yakin bagaimana cara melakukannya.

Saya ingin program saya mengunduh aplikasi ke program files\any name here\

Jadi pada dasarnya saya memerlukan fungsi yang memeriksa apakah ada folder, dan jika tidak membuatnya.

50
John
If(Not System.IO.Directory.Exists(YourPath)) Then
    System.IO.Directory.CreateDirectory(YourPath)
End If
149
Quintin Robinson

Di bawah System.IO, ada kelas yang disebut Direktori. Lakukan hal berikut:

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

Ini akan memastikan bahwa direktori ada di sana.

22
MagicKat

Karena pertanyaan tidak menentukan .NET, ini harus berfungsi dalam VBScript atau VB6.

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

Coba kelas System.IO.DirectoryInfo .

Sampel dari 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
10
Guy Starbuck

Coba ini: Directory.Exists(TheFolderName) dan Directory.CreateDirectory(TheFolderName)

(Anda mungkin perlu: Imports System.IO)

5
GEOCHET

VB.NET? System.IO.Directory.Exists (string path)

5
Chris Bilson

Directory.CreateDirectory () harus melakukannya. http://msdn.Microsoft.com/en-us/library/system.io.directory.createdirectory (VS.71) .aspx

Juga, di Vista, Anda mungkin tidak dapat menulis ke C: langsung kecuali jika Anda menjalankannya sebagai admin, jadi Anda mungkin hanya ingin memotong itu dan membuat dir yang Anda inginkan dalam sub-dir C: (yang saya katakan adalah Bagaimanapun juga, praktik yang baik untuk diikuti - sungguh sulit dipercaya berapa banyak orang yang membuang sampah ke C:

Semoga itu bisa membantu.

4
Mostlyharmless

(mengimpor System.IO)

jika Bukan Directory.Exists (Path) maka 
 Directory.CreateDirectory (Path) 
 berakhir jika
4
Wayne
If Not Directory.Exists(somePath) then
    Directory.CreateDirectory(somePath)
End If
3
PyongYang

Anda harus mencoba menggunakan File System Object atau FSO. Ada banyak metode milik objek ini yang memeriksa apakah folder ada serta membuat folder baru.

1
Dave

Lakukan saja ini:

        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

Saya menyatakan path folder sebagai String (sPath) sehingga jika Anda menggunakannya berkali-kali dapat diubah dengan mudah tetapi juga dapat diubah melalui program itu sendiri.

Semoga ini bisa membantu!

-nfell2009

0
BaeFell

Saya melihat bagaimana ini akan bekerja, apa yang akan menjadi proses untuk membuat kotak dialog yang memungkinkan pengguna memberi nama folder dan meletakkannya di tempat yang Anda inginkan.

Tepuk tangan

0
Andrew