VB.netリストボックスで選択した内容に合わせて2つのディレクトリを作成する。ピクチャ

VB.netリストボックスで選択した内容に合わせて2つのディレクトリを作成する。
単にディレクトリを作成するだけのVBコード
すぐに使い方を忘れるのでメモ
シンプルなクラスを使って分岐用のディレクトリパスに使用している。
構造体を使用したら、面倒なので使わないほうがよいとネットに書いてあってクラスを使うことにした。
iOSではクラスを使うとメモリを消費すると言われてVBで構造体にしたけど、エラーが出て型を合わせるのが面倒だった。

使い方は
リストボックスを選択する。
次にテキストボックスにディレクトリ名を入力する。
そして作成ボタンをクリックすると、
選択されたリストボックスによりどのディレクトリパスかが選択されて、テキストボックスのディレクトリ名が作成される。
２つのディレクトリを作成する必要があったのは、エクセルファイルと他のファイルでディレクトリを分けたかったから。
別に３つでも良いし１つでもよかった。

'VB.netリストボックスで選択した内容に合わせて2つのディレクトリを作成する。
’決め打ちのディレクトリ
’VB.net環境
Public Class cDirPath
    Public DirPath1 As String
    Public DirPath2 As String
    Public Sub New()

    End Sub
    Public Sub New(iFirstPath As String, iSecondPath As String)
        DirPath1 = iFirstPath
        DirPath2 = iSecondPath
    End Sub
End Class
'Form1のクラスに別のクラスを書くとデザインビューが表示されなくなるのでこの上のcDirPathクラスは新規ファイルを追加して置くこと。
Public Class Form1
    Dim classStruct(3) As cDirPath ' = New cDirPath
    Dim arrayDir '配列、作成する分類を入れる
    'ここでarrayDirに値を与えられない。宣言だけ
    'Dim arrayDirPath, arrayDirPath2 'パス
    Public Structure DirStruct '構造体は面倒なのでVBでは使わない。
        Public DirPath1 As String
        Public DirPath2 As String
    End Structure
    Dim structDirPath '= New DirStruct() {} '構造体ならこのカッコが重要
    'クラスを配列として使う

    Private Enum Bunruitype 'enum列挙型　このアプリでは使っていないけど参考に入れた
        SY
        fac
        lili
        con
        pro
    End Enum


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.Items.Clear()
        arrayDir = New ArrayList()
        arrayDir.Add("SY")
        arrayDir.Add("ファリー")
        arrayDir.Add("リリ")

        Dim testString As String
        'Dim tmpStruct As DirStruct '一旦別の構造体を使う。
		'クラスオブジェクトを作成して2つのディレクトリパス与える
        classStruct(0) = New cDirPath("c:\vbdata\sy\", "c:\vbdata\subdata\sy\")
        classStruct(1) = New cDirPath("c:\vbdata\fa\", "c:\vbdata\subdata\fa\")
        classStruct(2) = New cDirPath("c:\vbdata\lili\", "c:\vbdata\subdata\lili\")

        '構造体を使うよりクラスを使えということらしい
        ' Dim structDirPath
        'arrayDirPath.Add("") '個別のディレクトリのパス　構造体のほうがいいか
        'arrayDirPath2.Add("")
        'structDirPath = New DirStruct(5) {} 'このカッコが重要で数を指定
        'testString = "test"

        ListBox1.Items.Add(arrayDir(0)) '配列から文字列を渡す
        ListBox1.Items.Add(arrayDir(1))
        ListBox1.Items.Add(arrayDir(2))

        'select line 1
        ListBox1.SelectedIndex = 0
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim fname '= TextBox1.Text
        Dim fname2
        Dim makeDir As String
        Dim makeDir2 As String

        Dim selectName

        fname = ""
        makeDir2 = ""
        If TextBox1.Text = "" Then
            MsgBox("フォルダー名が空っぽです")
            Return
        End If
        If ListBox1.SelectedIndex = -1 Then
            MsgBox("何も選択されていません")
            Return
        Else
        'リストボックスで選択した内容でディレクトリパスを配列から与える。
        ’テキスト文字列のチェックをしていない。
            selectName = ListBox1.SelectedItem
            Select Case selectName
                Case arrayDir(0) '"SY"
                'クラスに入れたディレクトリパスを取得
                    makeDir = classStruct(0).DirPath1 & TextBox1.Text
                    makeDir2 = classStruct(0).DirPath2 & TextBox1.Text
                Case arrayDir(1) '"ファリー"
                    makeDir = classStruct(1).DirPath1 & TextBox1.Text
                    makeDir2 = classStruct(1).DirPath2 & TextBox1.Text

                Case arrayDir(2) '"リリー"
                    makeDir = classStruct(2).DirPath1 & TextBox1.Text
                    makeDir2 = classStruct(2).DirPath2 & TextBox1.Text


            End Select
            fname = makeDir
            fname2 = makeDir2
        End If
        'fname = TextBox1.Text

        If fname = "" Then
            MsgBox("空欄です")
            Return
        End If
        ’ディレクトリ作成、存在チェックしてない。
        System.IO.Directory.CreateDirectory(fname)
        System.IO.Directory.CreateDirectory(fname2)
        MsgBox(fname.ToString & "作成しました")
        MsgBox(fname2.ToString & "作成しました")
    End Sub
End Class

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

'VB.netリストボックスで選択した内容に合わせて2つのディレクトリを作成する。

’決め打ちのディレクトリ

’VB.net環境

Public Class cDirPath

Public DirPath1 As String

Public DirPath2 As String

Public Sub New()

End Sub

Public Sub New(iFirstPath As String, iSecondPath As String)

DirPath1 = iFirstPath

DirPath2 = iSecondPath

End Sub

End Class

'Form1のクラスに別のクラスを書くとデザインビューが表示されなくなるのでこの上のcDirPathクラスは新規ファイルを追加して置くこと。

Public Class Form1

Dim classStruct(3) As cDirPath ' = New cDirPath

Dim arrayDir '配列、作成する分類を入れる

'ここでarrayDirに値を与えられない。宣言だけ

'Dim arrayDirPath, arrayDirPath2 'パス

Public Structure DirStruct '構造体は面倒なのでVBでは使わない。

Public DirPath1 As String

Public DirPath2 As String

End Structure

Dim structDirPath '= New DirStruct() {} '構造体ならこのカッコが重要

'クラスを配列として使う

Private Enum Bunruitype 'enum列挙型　このアプリでは使っていないけど参考に入れた

fac

lili

con

pro

End Enum

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

ListBox1.Items.Clear()

arrayDir = New ArrayList()

arrayDir.Add("SY")

arrayDir.Add("ファリー")

arrayDir.Add("リリ")

Dim testString As String

'Dim tmpStruct As DirStruct '一旦別の構造体を使う。

'クラスオブジェクトを作成して2つのディレクトリパス与える

classStruct(0) = New cDirPath("c:\vbdata\sy\", "c:\vbdata\subdata\sy\")

classStruct(1) = New cDirPath("c:\vbdata\fa\", "c:\vbdata\subdata\fa\")

classStruct(2) = New cDirPath("c:\vbdata\lili\", "c:\vbdata\subdata\lili\")

'構造体を使うよりクラスを使えということらしい

' Dim structDirPath

'arrayDirPath.Add("") '個別のディレクトリのパス　構造体のほうがいいか

'arrayDirPath2.Add("")

'structDirPath = New DirStruct(5) {} 'このカッコが重要で数を指定

'testString = "test"

ListBox1.Items.Add(arrayDir(0)) '配列から文字列を渡す

ListBox1.Items.Add(arrayDir(1))

ListBox1.Items.Add(arrayDir(2))

'select line 1

ListBox1.SelectedIndex = 0

End Sub

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

Dim fname '= TextBox1.Text

Dim fname2

Dim makeDir As String

Dim makeDir2 As String

Dim selectName

fname = ""

makeDir2 = ""

If TextBox1.Text = "" Then

MsgBox("フォルダー名が空っぽです")

Return

End If

If ListBox1.SelectedIndex = -1 Then

MsgBox("何も選択されていません")

Return

Else

'リストボックスで選択した内容でディレクトリパスを配列から与える。

’テキスト文字列のチェックをしていない。

selectName = ListBox1.SelectedItem

Select Case selectName

Case arrayDir(0) '"SY"

'クラスに入れたディレクトリパスを取得

makeDir = classStruct(0).DirPath1 & TextBox1.Text

makeDir2 = classStruct(0).DirPath2 & TextBox1.Text

Case arrayDir(1) '"ファリー"

makeDir = classStruct(1).DirPath1 & TextBox1.Text

makeDir2 = classStruct(1).DirPath2 & TextBox1.Text

Case arrayDir(2) '"リリー"

makeDir = classStruct(2).DirPath1 & TextBox1.Text

makeDir2 = classStruct(2).DirPath2 & TextBox1.Text

End Select

fname = makeDir

fname2 = makeDir2

End If

'fname = TextBox1.Text

If fname = "" Then

MsgBox("空欄です")

Return

End If

’ディレクトリ作成、存在チェックしてない。

System.IO.Directory.CreateDirectory(fname)

System.IO.Directory.CreateDirectory(fname2)

MsgBox(fname.ToString & "作成しました")

MsgBox(fname2.ToString & "作成しました")

End Sub

End Class

こちらの記事もどうぞ

VB.net　初級プログラム　１回　テキストファイル読み込み　プログラム開発 VB.net　初級プログラム　１回　テキストファイル読み込み　プログラム開発環境 Win […]
VB.NETでDirectX　ゲーム開発情報ゲーム開発はどうしてもC++、C#となる。でもVB.netで、ゲーム開発ができればもっといい。 […]
C# webフォーム今日のエラー　プロパティの属性 [StringLength(50)]//属性 EntityFrameWorkの勉強中。エンティクラスを本のとおりに書いていると書籍の名称は、 […]
ゲームプログラム、swift3.0でCSVファイルを扱うのでSwiftCSVライブラリをゲットしたがエラーでまくり swift3.0でCSVファイルを扱うのでSwiftCSVライブラリをゲットしたがエラーでまくり […]
Unity game開発　今日のUnity勉強基本テンプレート編unity 2017 Unity game開発　今日のUnity勉強基本テンプレート編unity […]
UNITYで３Dブロック崩しゲームを作ってみた2017 ,Unity ver5.5 UNITYで３Dブロック崩しゲームを作ってみたユーチューブの動画を見ながらUnityでシン […]