copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - Verzeichnis vom Anwendungspfad (App.Path) anlegen
'
Option Explicit On
Option Strict On

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles Button1.Click

        Dim Result As Boolean = CreateFolderFromApplicationStartupPath("test1")
        Select Case Result
            Case True
                MessageBox.Show("Verzeichnis wurde angelegt...", "Info")
            Case Else
                MessageBox.Show("Verzeichnis konnte nicht angelegt werden...", "Info")
        End Select
    End Sub

    Private Function CreateFolderFromApplicationStartupPath(ByVal Folder As String) As Boolean
        If Folder = Nothing Then
            Throw New ArgumentException("Error...")
        End If
        Try
            Dim StartupPath As String = Application.StartupPath()
            Dim NewFolder As String = Path.Combine(StartupPath, Folder)
            If Not Directory.Exists(NewFolder) Then
                Directory.CreateDirectory(NewFolder)
                Return True
            Else
                MessageBox.Show("Das Verzeichnis existiert bereits...", "Info")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Info")
        End Try
        Return False
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles MyBase.Load
        With Me
            .CenterToScreen()
        End With
    End Sub
End Class
Sourcecode Visual Basic