作業環境の構築 - いぬもあるけばぼうもあるく

BeaverNest.exe -f %~n1
move %1 %~n1




Imports MyLibrary

Module Module1

    ''' <summary>
    '''
    ''' </summary>
    ''' <remarks></remarks>
    Sub Main(ByVal args As String())

        Dim parser As CommandParser = New CommandParser()

        Dim commandDic As Dictionary(Of String, List(Of String))
        commandDic = parser.Parse(args)

        Dim folderName As String = String.Empty '作成するフォルダの名前

        For Each cmd As KeyValuePair(Of String, List(Of String)) In commandDic

            Select Case cmd.Key
                Case "f"
                    Dim list As List(Of String) = cmd.Value
                    If list.Count >= 1 Then
                        folderName = list(0)
                    End If
            End Select

        Next

        If Not String.IsNullOrEmpty(folderName) Then
            'フォルダ作成
            My.Computer.FileSystem.CreateDirectory(folderName)

            'フルパスを想定してファイル名だけ取得
            Dim fileName As String = IO.Path.GetFileName(folderName) & ".txt"
            fileName = IO.Path.Combine(folderName, fileName)

            'フォルダの下にファイルを作成
            IO.File.Create(fileName)

        End If

    End Sub


End Module