Exection for DocToPdf

$pathTop = [Environment]::GetFolderPath('Desktop')
cd "$pathTop\ps"
. .\Func_FormDialog.ps1
. .\Func_Word.ps1

$pathsInOut = GetFolderPathsByFormInOut -InitPathInput "" -InitPathOutput ""

while($true){
    if($pathsInOut -eq $null){
        exit
    }

    $pathIn= $pathsInOut[0]
    $pathOut= $pathsInOut[1]

    # message作成
    $CI = Get-ChildItem $pathIn -Name | where{$_ -like "*.doc*"} | sort
    $nokori =$CI.Count - 5    
    $msg = ($CI |select -First 5) -join "`n"
    if($nokori -gt 0){ $msg = "$msg`n他 $nokori 件" }
    $msg = "$msg `n`n実行するよ？"

    #実行確認
    $result = [System.Windows.Forms.MessageBox]::Show($msg,"実行確認","YesNo","Question","Button2")
    #実行
    if($result -eq $resYes){
        cd $pathIn
        DocsToPdfAtCurDir($pathOut)
        break
    }else{
        $pathsInOut = GetFolderPathsByFormInOut -InitPathInput $pathIn -InitPathOutput $pathOut
    }
}