private sub commandbutton5_click()

     dim ko as long

            ko=msgbox("更新しますか？",vbyesno)

     if ko=vbyes then

            sPath="D:￥data￥DからPへ.bat"    'batファイルフルパス

　　　dProcessId=shell(sPath)

    else

        msgbox"更新しません"

   end if

end sub