Launch a .bat file

[MrDB4Excel]

Is there a way to launch and run a batch file from within a macro-enabled Excel file?
The .bat file exists in the same directory as the .xlsm file. This directory is not the C drive but another folder on my F drive.
Any suggestions are much appreciated.
The content of this .bat file is very simple as follows:
g:
if exist directory name\ (
echo Yes
) else (
echo No
)
rmdir directory name

 

[starl]

I guess the quick test there would be to temporarily disable the antivirus and run the macro.

 

[Gokhan Aycan]

Malwarebytes user here. While testing some code regarding this topic my test file was blocked. Tried one of my other projects and it was blocked before even got loaded. After some hours I learned that recently they made some changes and had to disable some new features. I was notified with informational pop-ups though.

Just wanted to let you all know.

 

[Dan_W]

[DELETED]

 

[MrDB4Excel]

I am using Bitdefender and it seems to always block from Excel anything to do with cmd.exe but Bitdefender never blocks regular use of cmd.exe outside Excel so this seems puzzling.

 

[starl]

I am using Bitdefender and it seems to always block from Excel anything to do with cmd.exe but Bitdefender never blocks regular use of cmd.exe outside Excel so this seems puzzling.

I'm assuming it's in case it's a malicious macro that ran automatically - so block Office apps (the setting I know of in McAfee) but allow more "manual" methods through. But then they don't offer a way (that I found) to say "the code in this file is ok to run" - it's either ON or OFF for Office programs

Maybe there's a "safe folder" setting and you can put the workbook in there?

 

[ZVI]

Hi,

You may use this code to delete folder by its pathname in the MyFolder string variable.
Space chars in the folder's pathname are supported too.

Sub KillFolder()
  Dim MyFolder As String
  MyFolder = "G:\Testing"
  CmdString = "CMD /C RMDIR /S /Q " & Chr(34) & MyFolder & Chr(34)
  Shell CmdString, vbHide
End Sub

 

[MrDB4Excel]

Hi,

You may use this code to delete folder by its pathname in the MyFolder string variable.
Space chars in the folder's pathname are supported too.

Sub KillFolder()
  Dim MyFolder As String
  MyFolder = "G:\Testing"
  CmdString = "CMD /C RMDIR /S /Q " & Chr(34) & MyFolder & Chr(34)
  Shell CmdString, vbHide
End Sub

Your code would not work, but I found this to work:
Option Explicit
'VBA Removing specified Directory and its Content
Sub VBAF1_Remove_Directory_and_its_Content()

'Variable declaration
Dim sFolderPath As String, oFSO As Object
'Dim oFSO As FileSystem Object ' removed this line by inserting a Comment Marker [ ' ]

'Define Folder Path
sFolderPath = "G:\Testing\" ' Note the use of the complete path to the folder

'Check if slash is added
If Right(sFolderPath, 1) = "\" Then
'If added remove it from the specified path
sFolderPath = Left(sFolderPath, Len(sFolderPath) - 1)
End If

'Create FSO Object
Set oFSO = CreateObject("Scripting.FileSystemObject")

'Check Specified Folder exists or not
If oFSO.FolderExists(sFolderPath) Then

'Delete All Files
oFSO.DeleteFile sFolderPath & "*.*", True

'Delete All Subfolders
oFSO.DeleteFolder sFolderPath & "*.*", True

'Display Message
MsgBox "Specified directory has deleted.", vbInformation, "Testing" 'changed from VBAF1
Else
'Display Message
MsgBox "Specified directory doesn't exists.", vbInformation, "Testing" 'changed from VBAF1
End If

End Sub

 

[ZVI]

Your code would not work

Have you tested it?
Anyway, it's great that you've solved the problem!

 

[MrDB4Excel]

Have you tested it?
Anyway, it's great that you've solved the problem!

Yes, I tested both the one you wrote and the long one I replied with. The short one you wrote triggered my Bitdefender. The long one works flawlessly.

 

[ZVI]

Yes, I tested both the one you wrote and the long one I replied with. The short one you wrote triggered my Bitdefender. The long one works flawlessly.

Thank you for the details!