✔ Programação GLOBAL®: VBA Access - Comandos do MS DOS no VBA

| Blog Office VBA | Blog Excel | Blog Access |

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

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

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