locked
Format.com RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde Pessoal,

     

    Preciso formatar um disco, porém quero que a formatação seja executada sem que apareça a mensagem de confirmação para formatar.

    No WindowsXP eu utilizo o comando: "Format D: /fs:NTFS /q/u/y" e funciona normalmente, mais no Windows2000, o parâmetro "/y" não funciona. Alguêm sabe como resolver isso/

    terça-feira, 28 de novembro de 2006 15:22

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
     

    Bom dia Pessoal,

    Consegui uma solução alternativa, é "gambiarra", mas dá certo.. E este exemplo é para o VB6

    Private Sub Form_Load()
    Dim ReturnValue, I
    ReturnValue = Shell("cmd.exe", vbNormalFocus)
    'AppActivate ReturnValue
    WAIT
    SendKeys "~format D: /fs:NTFS /q/u", True
    WAIT
    WAIT
    WAIT
    WAIT
    WAIT
    WAIT
    SendKeys "~s", True
    WAIT
    WAIT
    WAIT
    SendKeys "~s", True
    WAIT
    SendKeys "{ENTER}", True
    WAIT
    SendKeys "{ENTER}", True
    WAIT
    SendKeys "~Exit", True
    SendKeys "{ENTER}", True

    Unload Me
    End Sub
    Private Sub WAIT()
    For I = 1 To 1000
    DoEvents
    Next I
    End Sub

    quinta-feira, 21 de dezembro de 2006 12:01

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Boa noite,

    Eu encontrei o script abaixo. Mas ainda não funcionou, está dando erro:

    Erro: 0x80041010
    Código: 80041010
    Origem: (null)

    Verifiquei e a classe Win32_volume não existe, mais este script foi pego em artigos da Microsoft. Devo estar cometendo algum erro e não sei onde.

    Segue o script:

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colVolumes = objWMIService.ExecQuery("Select * from Win32_volume Where Name = 'D:\\'")
    For Each objVolume in colVolumes
        errResult = objVolume.Format("NTFS")

    Next

    Se alguém puder me ajudar...

    No aguardo

    segunda-feira, 18 de dezembro de 2006 00:52
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde Pessoal...

    DESCOBERTA!!!

    Descobri hoje mexendo no "wbemtest", que a classe WIN32_Volume, só existe no Windows2003. Sei que tem como criar esta classe no Windows2000, mas não sei como criar. Alguém pode me dar um help?

    No aguardo,

    segunda-feira, 18 de dezembro de 2006 14:23
  • Question
    Entrar para Votar
    0
    Entrar para Votar
     

    Bom dia Pessoal,

    Consegui uma solução alternativa, é "gambiarra", mas dá certo.. E este exemplo é para o VB6

    Private Sub Form_Load()
    Dim ReturnValue, I
    ReturnValue = Shell("cmd.exe", vbNormalFocus)
    'AppActivate ReturnValue
    WAIT
    SendKeys "~format D: /fs:NTFS /q/u", True
    WAIT
    WAIT
    WAIT
    WAIT
    WAIT
    WAIT
    SendKeys "~s", True
    WAIT
    WAIT
    WAIT
    SendKeys "~s", True
    WAIT
    SendKeys "{ENTER}", True
    WAIT
    SendKeys "{ENTER}", True
    WAIT
    SendKeys "~Exit", True
    SendKeys "{ENTER}", True

    Unload Me
    End Sub
    Private Sub WAIT()
    For I = 1 To 1000
    DoEvents
    Next I
    End Sub

    quinta-feira, 21 de dezembro de 2006 12:01