✔ Programação GLOBAL®: VBA Access - Comandos do MS DOS no VBA - Microsoft DOS Commands in VBA 🔥Atualizado em 07Jan2025

VBA Access - Comandos do MS DOS no VBA - Microsoft DOS Commands in VBA 🔥Atualizado em 07Jan2025

#ProgramaçãoGlobal #VBA #DOS #Office365 #Command

Outros Comandos MS DOS no VBA:

Utilizar comando DOS no VBA é possível e em alguns casos até mais rápidos para resolverem prontamente uma necessidade que tenhamos.

Antes de continuar, um pequeno parênteses, deixe seus comentários para este post.

Checando a presença de um arquivo texto e abrindo-o na pasta onde se encontra com o editor de texto Notepad.exe

Public Function OpenTextFile()

Dim txtFilePath As String

Dim NotePad As String

   txtFilePath = "C:\msaccesstips\htaccess.txt"

   NotePad = "C:\Windows\System32\Notepad.exe"

If Dir(txtFilePath, vbNormal) = "htaccess.txt" Then

   Call Shell(NotePad & " " & txtFilePath, vbNormalFocus)

Else

   MsgBox "File: " & txtFilePath & vbcr & "Not Found...!"

End If

End Function

✅ Código Otimizado com Melhorias Sugeridas:

Public Function OpenTextFile()
Dim txtFilePath As String
Dim NotePad As String

txtFilePath = "C:\msaccesstips\htaccess.txt"
NotePad = Environ("SystemRoot") & "\System32\Notepad.exe"

If Dir(txtFilePath) <> "" Then
Call Shell(NotePad & " """ & txtFilePath & """", vbNormalFocus)
Else
MsgBox "File: " & txtFilePath & vbCrLf & "Not Found...!"
End If
End Function
🧪 Testes recomendados:
Teste com o arquivo existente.
Teste com o arquivo inexistente.
Teste com um caminho de arquivo que contenha espaços.
Teste em diferentes versões do Windows.

Efetuando a cópia de um arquivo com o comando FileCopy().

Public Function CopyTextFile()

Dim SourcefilePath As String

Dim TargetFilePath As String

   SourcefilePath = "C:\msaccesstips\htaccess.txt"

   TargetFilePath = "C:\New Folder\htaccess.txt"

If Dir(SourcefilePath, vbNormal) = "htaccess.txt" Then

   FileCopy SourcefilePath, TargetFilePath

   MsgBox "File copy complete."



Else

   MsgBox "File Not Found...!"

End If

End Function

✅ Código Otimizado com Melhorias Sugeridas:

Public Function CopyTextFile()
Dim SourcefilePath As String
Dim TargetFilePath As String

SourcefilePath = "C:\msaccesstips\htaccess.txt"
TargetFilePath = "C:\New Folder\htaccess.txt"

' Verifica se o arquivo de origem existe
If Dir(SourcefilePath) <> "" Then
' Cria a pasta de destino, se não existir
If Dir("C:\New Folder", vbDirectory) = "" Then
MkDir "C:\New Folder"
End If

' Copia o arquivo
FileCopy SourcefilePath, TargetFilePath
MsgBox "File copy complete."
Else
MsgBox "File: " & SourcefilePath & vbCrLf & "Not Found!"
End If
End Function

🧪 Testes Recomendados:
Teste com a pasta de destino existente.
Teste sem a pasta de destino.
Teste com o arquivo de origem presente.
Teste com o arquivo de origem ausente.

Encontrando e Deletando um arquivo em uma localização específica do disco rígido.

Public Function DeleteFile()

Dim FilePath As String, msgtxt As String

   FilePath = "C:\Bernardes\htaccess.txt"

If Dir(FilePath, vbNormal) = "htaccess.txt" Then

   msgtxt = "Delete File: " & FilePath & vbCr & vbCr

   msgtxt = msgtxt & "Proceed...?"

   If MsgBox(msgtxt, vbYesNo + vbDefaultButton2 + vbQuestion, "DeleteFile()") = vbNo Then

   Exit Function

   End If

   Kill FilePath

   MsgBox "File: " & FilePath & vbCr & "Deleted from Disk."



Else

   MsgBox "File: " & FilePath & vbCr & "Not Found...!"

End If

End Function

✅ Código Otimizado com Melhorias Sugeridas:

Public Function DeleteFile()
Dim FilePath As String, msgtxt As String

FilePath = "C:\Bernardes\htaccess.txt"

If Dir(FilePath) <> "" Then
msgtxt = "Delete File: " & FilePath & vbCr & vbCr
msgtxt = msgtxt & "Proceed...?"

If MsgBox(msgtxt, vbYesNo + vbDefaultButton2 + vbQuestion, "DeleteFile()") = vbNo Then
Exit Function
End If

On Error Resume Next
Kill FilePath
If Err.Number <> 0 Then
MsgBox "Erro ao deletar o arquivo: " & Err.Description
Exit Function
End If
On Error GoTo 0

MsgBox "File: " & FilePath & vbCr & "Deleted from Disk."
Else
MsgBox "File: " & FilePath & vbCr & "Not Found...!"
End If
End Function
🧪 Testes recomendados:
Teste com o arquivo existente e com permissão de exclusão.
Teste com o arquivo inexistente.
Teste com o arquivo protegido contra gravação.
Teste com o arquivo aberto por outro programa