Powershell

#Start up Config
$UITitle = "Make Quote Folder"
$host.UI.RawUI.WindowTitle = $UITitle
SET-Location '\\opibaltimore\Shared\Sales\D. Blasdell\_QUOTES'
$workingDir = '\\opibaltimore\Shared\Sales\D. Blasdell\_QUOTES'

#define default Vaules
$S0 = ""
$jobname = ""
$contractor = ""
$exit = ""
$Filenames = "\\opibaltimore\Shared\Sales\D. Blasdell\Spread Sheets\Folder_names.txt"
$Errorstate = 1
#Inport .NET framewoks
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing
Add-Type -AssemblyName PresentationCore,PresentationFramework

#ERROR loop
Do{
############################################################################
######################## Text Box Start ####################################
############################################################################



#make Box
$form = New-Object System.Windows.Forms.Form
$form.Text = 'Make Quote Folder'
$form.Size = New-Object System.Drawing.Size(500,230)
$form.StartPosition = 'CenterScreen'

#Make buttons
$OKButton = New-Object System.Windows.Forms.Button
$OKButton.Location = New-Object System.Drawing.Point(300,150)
$OKButton.Size = New-Object System.Drawing.Size(75,23)
$OKButton.Text = 'OK'
$OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
$form.AcceptButton = $OKButton
$form.Controls.Add($OKButton)


$CancelButton = New-Object System.Windows.Forms.Button
$CancelButton.Location = New-Object System.Drawing.Point(400,150)
$CancelButton.Size = New-Object System.Drawing.Size(75,23)
$CancelButton.Text = 'Cancel'
$CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.Controls.Add($CancelButton)


#Add Text
$label0 = New-Object System.Windows.Forms.Label
$label0.Location = New-Object System.Drawing.Point (145,20)
$label0.Size = New-Object System.Drawing.Size(250,20)
$label0.Text = "Fill out the Boxes Below with a-z,A-Z,0-9 #_&."
$form.Controls.Add($label0)

$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,50)
$label.Size = New-Object System.Drawing.Size(30,20)
$label.Text = 'S0#:'
$form.Controls.Add($label)

$label2 = New-Object System.Windows.Forms.Label
$label2.Location = New-Object System.Drawing.Point(10,80)
$label2.Size = New-Object System.Drawing.Size(60,20)
$label2.Text = 'Job Name:'
$form.Controls.Add($label2)

$label3 = New-Object System.Windows.Forms.Label
$label3.Location = New-Object System.Drawing.Point(10,110)
$label3.Size = New-Object System.Drawing.Size(60,20)
$label3.Text = 'Contractor:'
$form.Controls.Add($label3)

#Add Boxes
$textBox1 = New-Object System.Windows.Forms.TextBox
$textBox1.Location = New-Object System.Drawing.Point(160,50)
$textBox1.Size = New-Object System.Drawing.Size(310,20)
$form.Controls.Add($textBox1)


$textBox2 = New-Object System.Windows.Forms.TextBox
$textBox2.Location = New-Object System.Drawing.Point(160,80)
$textBox2.Size = New-Object System.Drawing.Size(310,20)
$form.Controls.Add($textBox2)

$textBox3 = New-Object System.Windows.Forms.TextBox
$textBox3.Location = New-Object System.Drawing.Point(160,110)
$textBox3.Size = New-Object System.Drawing.Size(310,20)
$form.Controls.Add($textBox3)

#Move to top
$form.Top = $true

$form.Add_Shown({$textBox1.Select()})
$result = $form.ShowDialog()



#Check inputs
if ($result -eq [System.Windows.Forms.DialogResult]::Cancel){
exit
}
if ($result -eq [System.Windows.Forms.DialogResult]::OK)
{
    $Errorstate = 1
    $ErrorMessage = "Invalid Input:"
######################################################################################
#                               NEED HELP HERE                                       #
######################################################################################
#Error Function
Function is-Good($Vaule,$Errtxt,$Msg,$State){
        if($Vaule -eq ""){
            $Msg = $Msg + "`n" + "Please Fill in the"+ "$Errtxt" + "Box"
            $State = 2
        }
        if ($Vaule -notmatch '[^a-z0-9 _&-]') {
            $State = $State
        }else{
            $Msg = $Msg + "`n" + "Please Use A-Z, a-z and 0-9 in the"+"$Errtxt" +"Box"
            $State = 2
        }
        return $Vaule
        return $Errtxt
        return $Msg
        return $State
    }

    #Name Holders
    $Temp1 = "S0#"
    $Temp2 = "Job Name"
    $Temp3 = "Contractor"

    #Call Error Function
    is-Good $TextBox1.Text $Temp1 $ErrorMessage $Errorstate
    is-Good $TextBox2.Text $Temp2 $ErrorMessage $Errorstate
    is-Good $TextBox3.Text $Temp3 $ErrorMessage $Errorstate


######################################################################################
#                               NEED HELP HERE                                       #
######################################################################################


    #IF error show error box
    if($Errorstate -eq 2)
    {
    [System.Windows.MessageBox]::Show($ErrorMessage,"Make Quote Folder ERROR",0,16)
    }
    #Export good inputs#>
    if ($Errorstate -eq 1){

    $S0     = $TextBox1.Text
    $jobname    = $TextBox2.Text
    $contractor = $TextBox3.Text
    $end = $exit
    $Errorstate = 0
    }
}
############################################################################
########################## Text Box End ####################################
############################################################################
}until ($Errorstate -eq 0)


# combine textbox outputs to form the directory
$PILname  = 'PIL_{0}.xlsx' -f $S0
$file     = '{0}_takeoff.xlsx' -f $S0
$folder = '{0}_{1}_{2}' -f $S0, $jobname, $contractor
$subfolder   = '{0}_{1}_{2}\1 - Estimating Orginal Quote Material' -f $S0, $jobname, $contractor
$folderPath = Join-Path -Path $workingDir -ChildPath $folder


#Make master folder
New-Item -ItemType Directory $folderPath

#Make Subfolder
foreach($line in Get-Content $Filenames)
{
New-Item $folder\$line -ItemType Directory
}

#File Paths
$subfolderPath = Join-Path -Path $workingDir -ChildPath $subfolder      # --> Full absolute path to the working folder
$filePath   = Join-Path -Path $subfolderPath -ChildPath $file        # --> Full absolute path to the file

#Copy and rename master Files
$masterFile = Join-Path -Path $workingDir -ChildPath '_master_takeoff.xlsx'
$pilFile    = Join-Path -Path $workingDir -ChildPath 'PIL_S0XXXXX .xlsx'
Copy-Item -Path $masterFile -Destination (Join-Path -Path $Subfolder -ChildPath $file)
Copy-Item -Path $pilFile -Destination (Join-Path -Path $folderPath -ChildPath $PILname)

############################
#Write to new take off file
############################

# Call excel and open file
$xl = New-Object -ComObject excel.application
$xl.Visible = $true
$wb = $xl.Workbooks.Open($filePath)
$data = $wb.Worksheets.Item("Storm")
$Data.Cells.Item(1,2) = $jobname
$data.Cells.Item(1,7) = $S0
$wb.Save()
$xl.Quit()

[System.Runtime.Interopservices.Marshal]::ReleaseComObject($wb) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($xl) | Out-Null
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()


#Open File Exploer
II $Subfolder

#Show Complete box
[System.Windows.MessageBox]::Show("Folder $folder was created",$UITitle,0,48)