Views

Histats

Vitrine

VBA Access - Comandos do MS DOS no VBA - Microsoft DOS Commands in VBA

Inline image 1
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

   MsgBox "File: " & FilePath & vbCr & "Deleted from Disk."
   
Else
   MsgBox "File: " & FilePath & vbCr & "Not Found...!"
End If

End Function


Tags: VBA, Microsoft, Office, DOS, D.O.S., command,

Inspiration: 

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias