Run time error 70

[francescoslash77]

Hi everyone
Can anyone explain to me why this macro, which worked perfectly on the home computer, tested on the company PC before, works and now doesn't work anymore?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
mpath = ActiveWorkbook.Path
mfile = "fis.csv"
If Dir(mpath & "" & mfile) <> "" Then
Kill mpath & "" & mfile
Else
MsgBox "File " & mfile & " non trovato"
End If
End Sub

I highlight the part in yellow
kill mpath & "" & mfile

giving me as an error

Run time error "70" Permission denied

thanks a lot

[ByteMarks]

You may need a \ between mpath and mfile since Activeworkbook.path doesn't end in one.
If the workbook you're running this in isn't saved yet, then Activeworkbook.path will be blank.
An error might be caused by mfile still being open or opened as read-only.

[francescoslash77]

Hi, could you give me an example
This is the code I use when opening and closing the file


Private Sub Workbook_Open()


strDir = "C:\Users\Cannonef\Desktop\OPS_Assegna Voli"
With CreateObject("wscript.shell")

.currentdirectory = strDir

.Run "%comspec% /c ren *.xls FIS.csv", 0, True

End With

Application.Wait (Now + TimeValue("00:00:03"))
ActiveWorkbook.RefreshAll


End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
mpath = ActiveWorkbook.Path
mfile = "fis.csv"
If Dir(mpath & "" & mfile) <> "" Then
Kill mpath & "" & mfile
Else
MsgBox "File " & mfile & " non trovato"
End If
End Sub

[francescoslash77]

Hi I tried like this but nothing always gives me the error

Private Sub Workbook_BeforeClose(Cancel As Boolean)
mpath = ActiveWorkbook.Path
mfile = "fis.csv"
If Dir(mpath & "" & mfile) <> "" Then
Kill mpath & "" & mfile
Else
MsgBox "File " & mfile & " non trovato"
End If
End Sub

[francescoslash77]

sorry it won't let me put the slash on the post

[AC PORTA VIA]

just like it said in post#2

mpath = ActiveWorkbook.Path
mfile = "email.csv"
If Dir(mpath & "\" & mfile) <> "" Then
Kill mpath & "\" & mfile
Else
MsgBox "File " & mfile & " non trovato"
End If

[doq7]

hi

i think that cross-posting is not a good practice.

I cannot show link because this is my 2nd / 3rd post, hope this is sufficient:

www . forumexcel . it / forum / threads / errore-runtime-70.66907/


best regards

[francescoslash77]

I apologize to everyone, I didn't know that you couldn't post a request on different forums. I close the open discussion.
sorry again

[doq7]

hi
Are you not use to read rules??

this is this Forum rule:

3. Questions that are cross-posted to other web forums must contain links to those posts on those forums or a comment to tell us where else the question has been asked.

And this ForumExcel rule (that you know very well):

Regola nr. 3 "Crossposting" la stessa domanda vietata su più forum
E' vietato postare lo stesso messaggio o parti di esso su altri forum, salvo casi di particolare interesse che dovranno comunque essere autorizzati da un Admin.

It's not my habit to have this kind of behavior, but considering the time that was dedicated to you (over than 10 posts), you could have waited.....

regards