lsmd.fs

open System
let rfrmconsole message =
    printfn "%s" message
    System.Console.ReadLine()
    ;

let md =
    let userdir = rfrmconsole(@"User directory eg. C:\ikar :")
    let soltype = rfrmconsole("Solution type eg. Production :")
    let solutionname = rfrmconsole("Solution name eg. seISVAddin: ")
    let chrp = @"\"
    let s = userdir+chrp+soltype+chrp+solutionname+chrp+"Baseline"+chrp+"Sources"+chrp
    let dirs = ["Core";"Classes";"Entities";"Schema";"Winforms";"DomainDefinition";"Client";"Reports";"Output\Debug"]
    for d in dirs do
        let res = System.IO.Directory.CreateDirectory(s+d)
        printfn "Directory: %s\n" res.FullName
    ;
;