Executando Comando Do Dos

[Guest DouglasX]

Como eu faço para executar comando do DOS (copy, format, del, etc.) através do VB.

[Decio]

Tenta assim:

Faça referência a Microsoft Scripting RunTime

Digite o código abaixo:

Dim MyFS As Scripting.FileSystemObject

Set MyFS = New Scripting.FileSystemObject

para copiar um diretório inteiro:

MyFS.CopyFolder "c:\DiretorioFonte", "e:\DiretorioDestino", True

O true no final indica que se o diretório existir , ele pode ser substituido.

Digite MyFS. e brinque com todas as opções que aparecem...

Para formatar um disco , você pode o código abaixo:

Coloque este código em um form antes do form load.

Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, ByVal options As Long) As Long

Public Sub Formatar(Drive As String)

Dim DriveNumber&

Dim RetVal&

DriveNumber = (Asc(Drive) - 65)

RetVal = SHFormatDrive(0, DriveNumber, 0&, 0&)

End Sub

Coloque este código em um botão por exemplo:

Private Sub Command1_Click()

Dim Message, Title, Default, MyValue

Message = "Qual o driver que deseja Formatar??"

Title = "Formatação de disquetes"

Default = "A:"

MyValue = InputBox(Message, Title, Default)

Formatar UCase(MyValue)

End Sub

[William Rodrigues]

Boa Decio

Legal esse negócio de formatar disquetes...

Abraços,

William Rodrigues

[Graymalkin]

Como eu faço para executar comando do DOS (copy, format, del, etc.) através do VB.

Crie um arquivo de lote (.bat) e execute-o através da função Shell().

Abraços,

Graymalkin