我想用VB做个磁盘修复程序.在界面上有个text1,在里面可输入盘符,输入盘符后点"开始"按钮,即可对text1.text中所输入的盘符进行修复.我所用的代码是:Shell "CHKDSK text1.text:/F".但不能实现效果,请高手指教.另:能否实现不显示cmd界面,但修复完后能以msgbox进行提示?谢谢

解决方案 »

  1.   

    Shell "CHKDSK text1.text:/F",0
    不显示cmd界面
      

  2.   

    shell "chkdsk " & text1.text & " :/F" ,0用msgbox显示结果不好做。可以用"重定向命令"把结果存到文件中,在打开文件,用msgbox 显示。
      

  3.   

    能否在修复完后另以提示框的形式进行提示?
    另:我试过Shell "CHKDSK text1.text:/F",但就是没反映,也不见cmd窗口弹出.
      

  4.   

    Shell "CHKDSK" & Text1.Text & " :/F"  在开始写的时候我也试过了,一调试就提示文件未找到.
      

  5.   

     Shell "CHKDSK.exe" & " " & Text1 & "/F", vbHide
      

  6.   

    Shell "CHKDSK.exe" & " " & Text1.Text & "/F"  没反应.
      

  7.   

    Shell "CHKDSK.exe" & " " & Text1.Text & ":/F"  可以实现效果.加了vbHide虽然可以让cmd窗口不显示,但怎么才能知道磁盘已修复完成了呢?
      

  8.   

    dim strshell as string
    dim a as string 
    a=text1.text
    strshell= "CHKDSK.exe" & a ":/f"
    shell (strshell )应该是这样的吧!!呵呵~~打字很辛苦哦~~
      

  9.   

    错了上面那个第四行应该是下面这样的!!strshell= "CHKDSK.exe" & a & ":/f"