Permission denied for particular user

[jardenp]

I have a script that works fine on my machine (Win 7, Office 2010) but not on another machine (Win 10, Office 2010). I get a runtime error 70 permission denied when it tries to copy the file at the end of the script portion below. The other user can read/write/delete in all folders in use. From another post (here) I tried to switch

Set oFSO = CreateObject("Scripting.FileSystemObject")

to

Set oFSO = CreateObject("VBScript.RegExp")

but that threw an error on the next line:

    Set oFolder = oFSO.GetFolder(FolderPath)

This is a script being used in a userform. "Entry" is an global integer variable defined in another sub.

My first thought is that it must be a reference issue between Win 7 and Win 10. Is there a reference I should check or uncheck in my VBE?

Thanks!

Private Sub TripScanClick()
    
    Dim FolderPath As String, path As String, count As Integer
    FolderPath = "S:\XXX\Destination Folder"

    path = FolderPath & "\*"

    Filename = Dir(path)

    Do While Filename <> ""
       count = count + 1
        Filename = Dir()
    Loop

    If count = 0 Then
        MsgBox "No files were found in the target folder " & path
        Exit Sub
    ElseIf count > 1 Then
        MsgBox "More than one file was found in the target folder " & path & ". Please make sure the only file in the folder is the scan for this trip."
        Exit Sub
    End If
    
    'Rename File
    Dim oFSO As Object
    Dim oFolder As Object
    Dim oFile As Object
    Dim oFileName As String
    Dim NewUnitFileName As String
        NewUnitFileName = "\" & Me.Controls("TractorNum_TB" & Entry) & "- Odom " & Me.Controls("StartOdom_TB" & Entry) & "-" & Me.Controls("EndOdom_TB" & Entry) & " Trip Start Date " & Format(Me.Controls("TripStartDate_TB" & Entry), "yyyy-mm-dd") & ".pdf"
    Dim NewPayrollFileName As String
        NewPayrollFileName = "\" & Me.Controls("DivEntry_CB" & Entry) & "-" & Me.Controls("BillingGroup_CB" & Entry) & "-" & Left(Me.Controls("DriverName_CB" & Entry), 3) & "," & Mid(Me.Controls("DriverName_CB" & Entry), InStr(1, Me.Controls("DriverName_CB" & Entry), ",") + 2, 1) & "-" & Me.Controls("TractorNum_TB" & Entry) & "-" & Format(Me.Controls("TripStartDate_TB" & Entry), "yyyy-mm-dd") & ".pdf"
    Dim UnitFilesDir As String
        UnitFilesDir = "S:\XXX\Unit Trip Scans"
    Dim TripArchiveDir As String
        TripArchiveDir = "S:\XXX\Trip Sheet Archive"
    Dim TripWeeklyFolderDir As String
        TripWeeklyFolderDir = "S:\XXX\Trip Sheet Weekly Folders"
    Dim PayrollByDivisionDir As String
        PayrollByDivisionDir = "S:\XXX\Payroll by Division"
    
    Set oFSO = CreateObject("Scripting.FileSystemObject")

    Set oFolder = oFSO.GetFolder(FolderPath)
    
    'kill thumbs.db if it's there
    If Dir(FolderPath & "\thumbs.db") <> "" Then
        SetAttr FolderPath & "\thumbs.db", vbNormal
        Kill FolderPath & "\thumbs.db"
    End If
    
        

    For Each oFile In oFolder.Files

        oFileName = oFile.Name

    Next oFile
    
    'Copy file to Archive
    oFSO.CopyFile FolderPath & "\" & oFileName, _
        TripArchiveDir & NewPayrollFileName

 

[Joe4]

but that threw an error on the next line:

Set oFolder = oFSO.GetFolder(FolderPath)

What is the exact error message?
Did you confirm that the user has permission to that folder and it is already mapped on his computer, exactly as the code shows (S:\XXX\Destination Folder)?

 

[jardenp]

Joe - The error is "runtime error 70: permission denied" for the code as is when it tries to run oFSO.CopyFile. The error for the code you quoted (after I tested switching "Scripting.FileSystemObject" to "VBScript.RegExp" was runtime error 438: object doesn't support this property or method." However I switched it back to "scripting.filesystemobject."

I probably should have added what I'm trying to do: This script takes a PDF from a folder and copies it to other folders with new names based on data in the userform.

Also, it now seems to be broken in the same way on my machine (Win 7, Office 2010) as the newer one (Win 10, 2010). Hmmmm....

Thanks for the help!

 

[jardenp]

Joe,

I forgot to add: yes, drive is mapped and user can read/write/delete in all folders.

Thanks,

 

[Joe4]

Did you compare the selected references on each machine?

Which references are selected on the machine where it does work?
Which references are selected on the machine where it does not work?

 

[jardenp]

Same on new and old. These references in this order:
Visual Basic for Applications
Microsoft Excel 14.0 Object Library
OLE Automation
Office 14.0 Object Library
Microsoft Forms 2.0 Object Library

 

[Joe4]

I believe you should have a Microsoft Scripting Runtime reference selected also, since you are trying to use that here:

    Set oFSO = CreateObject("Scripting.FileSystemObject")

 

[jardenp]

Joe,

I added that and still get runtime error 70: permission denied on the oFSO.CopyFile line.

 

[Joe4]

Check out the first reply here, at the three conditions laid out: Permission denied on CopyFile in VBS

 

[jardenp]

Thanks for the link. I will work through those. It's a mystery why it works on the Win 7 machine and not the win 10. I'll investigate that too,