Use Rmdir with thisworkbook.path

Asked Mar 15 '18 at 12:52

Active Mar 15 '18 at 18:48

Viewed 283 times

In Excel 2016 VBA I used:

kill ThisWorkbook.path & "\reports" & "\*.csv"

to remove all the .csv files in the directory - which worked fine.

My problem is that i want use:

path = ThisWorkbook.path & "\reports\"

RmDir path

to delete the folder. I cant seem to figure out what im doing wrong.

edited Jul 09 '18 at 19:34

Community

asked Mar 15 '18 at 12:52

Justin Captain Wypij

Are there no other files in the directory? – steenbergh Mar 15 '18 at 12:57
2

Are you trying to delete the folder that contains the currently open workbook? Doesn't sound viable – QHarr Mar 15 '18 at 12:58
Do you get an error message? – steenbergh Mar 15 '18 at 12:59
error 75 I am guessing or 76 – QHarr Mar 15 '18 at 13:02
1

Save the ActiveWorkbook somewhere else first. – braX Mar 15 '18 at 13:02
@steenbergh the directory is empty and the error message is "error75" – Justin Captain Wypij Mar 15 '18 at 13:04
@QHarr the error message is 75. the directory is completely empty – Justin Captain Wypij Mar 15 '18 at 13:09
@braX the activeworkbook is saved already – Justin Captain Wypij Mar 15 '18 at 13:09
Are there any hidden files contained inside? Seems to work for me with an empty folder. – QHarr Mar 15 '18 at 13:13
Saved where? in the folder you are trying to delete? – braX Mar 15 '18 at 13:14
1

@qharr Nope. i even checked with the command line - just to make sure – Justin Captain Wypij Mar 15 '18 at 13:15
@brax so the location of the active workbook is: C:\Users\Justin Field\Desktop\Test the folder i want to delete is C:\Users\Justin Field\Desktop\Test\reports – Justin Captain Wypij Mar 15 '18 at 13:16
Is the folder somehow locked? And can you use fso deletefolder instead? – QHarr Mar 15 '18 at 13:18
@qharr how would i find that out? – Justin Captain Wypij Mar 15 '18 at 13:20
That's what I am googling at present! Meantime did you try fso.DeleteFolder path – QHarr Mar 15 '18 at 13:20
I just did a test and put a test folder in the folder i want to delete: C:\Users\Justin Field\Desktop\Test\reports\deleteme\. Then i used the code: RmDir "C:\Users\Justin Field\Desktop\Test\reports\deleteme\" and that works. I just cant seem to delete the reports folder . arrrrggg – Justin Captain Wypij Mar 15 '18 at 13:22
https://stackoverflow.com/questions/10518151/how-to-check-in-command-line-if-a-given-file-or-directory-is-locked-used-by-any Also did you try without the end "\" - shouldn't make a difference. – QHarr Mar 15 '18 at 13:23
@qharr i have never used that before. Ill look into it meow – Justin Captain Wypij Mar 15 '18 at 13:23
add reference to ms scripting runtime then Dim fso As FileSystemObject: Set fso = New FileSystemObject : : fso.DeleteFolder path without end "\" – QHarr Mar 15 '18 at 13:24
what command did you use to test no hidden files? – QHarr Mar 15 '18 at 13:25
@qharr - you are right. I went to delete the folder conventionally and it said, "the action cannot be completed because the file is open in another program". Now i need to find out what program is doing this. freaking nuts – Justin Captain Wypij Mar 15 '18 at 13:36
See the link I shared – QHarr Mar 15 '18 at 13:36

Use Rmdir with thisworkbook.path

0 Answers0