Microsoft Office Forums Path/Access Error Madness

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 09-16-2019, 05:42 PM
gmaxey gmaxey is offline Path/Access Error Madness Windows 10 Path/Access Error Madness Office 2016
Word MVP 2003-2009
Path/Access Error Madness
 
Join Date: May 2010
Location: Marble, NC
Posts: 961
gmaxey will become famous soon enoughgmaxey will become famous soon enough
Default Path/Access Error Madness

Hi Guys,



Coming here this time with my hand out needing a fish ;-)


I have a process that creates a folder structure on my C drive. Overtime, I put files in the various folders and at times I then need to delete the root folder, sub-folders and all files. I'm having issues with the code as "more times than" not some of the files and folders are not delete and I get RTE 75 Path/Access error. After getting the error, no combination of code (and I've tried all day) will delete the offending folder. However, that folder can be deleted manually with no problems.

Here is the the code that creates the structure, deletes the structure and some code to add files to the folders. If you simply create the structure and immediately delete it, it will delete without issue. However, if you start adding files to the structure then attempt to delete then more often than not here, I get the RTE.

Any help or ideas on how to consistently delete a folder and all subfolders and files is appreciated.

Code:
Option Explicit
Dim oFSO As Object, oFolder As Object, oFile As Object
Dim m_strRoot As String
Dim m_arrSubFolders() As String

Sub CreateFolderStructure()
'1. This procedure creates a folder structure on my C drive.
Dim lngIndex As Long
  m_arrSubFolders = Split("Case Data|Case Data\Client|Case Data\Counsels|" _
                   & "Case Data\Misc|Case Templates|Files|Files\Faxes|Files\Letters|Files\Letters\PDF Final|Files\Letters\Client|" _
                   & "Files\Letters\Client\Drafts|Files\Letters\Opposing Counsel|Files\Letters\Other|Files\Memos|Files\Memos\PDF Final|" _
                   & "Files\Misc|Files\Pleadings|Files\Pleadings\Draft|Files\Pleadings\PDF", "|")
  m_strRoot = "C:\Demo Issue"
  CreateFolder m_strRoot
  For lngIndex = 0 To UBound(m_arrSubFolders)
    CreateFolder m_strRoot & "\" & m_arrSubFolders(lngIndex)
  Next lngIndex
End Sub

Sub KillFoldersAndFiles()
'2. This procedure is intended to delete are files and folders in the folder structure created in step 1. _
    It works fine if excuted immediately after the folder structure is created (all folders empty with no files).
Dim lngIndex As Long
  m_arrSubFolders = Split("Case Data|Case Data\Client|Case Data\Counsels|" _
                   & "Case Data\Misc|Case Templates|Files|Files\Faxes|Files\Letters|Files\Letters\PDF Final|Files\Letters\Client|" _
                   & "Files\Letters\Client\Drafts|Files\Letters\Opposing Counsel|Files\Letters\Other|Files\Memos|Files\Memos\PDF Final|" _
                   & "Files\Misc|Files\Pleadings|Files\Pleadings\Draft|Files\Pleadings\PDF", "|")
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  For lngIndex = UBound(m_arrSubFolders) To 0 Step -1
    If fcnDirExists("C:\Demo Issue\" & m_arrSubFolders(lngIndex)) Then
      Set oFolder = oFSO.GetFolder("C:\Demo Issue\" & m_arrSubFolders(lngIndex))
      For Each oFile In oFolder.Files
        oFile.Delete
        DoEvents
      Next oFile
      DoEvents
      oFSO.DeleteFolder "C:\Demo Issue\" & m_arrSubFolders(lngIndex)
    End If
  Next lngIndex
  DoEvents
  oFSO.DeleteFolder "C:\Demo Issue"
lbl_Exit:
  Exit Sub
End Sub

Sub DemoIssue()
'3. However, if I create and save a file in one of the sub-folders created in step one and then run KillFoldersAndFiles, _
   I get a Path/File Access error.
Dim oDoc As Document
  m_strRoot = "C:\Demo Issue"
  Set oDoc = Documents.Add
  If Application.Version > 12# Then
    oDoc.SaveAs2 Filename:=m_strRoot & "\Files\Pleadings\PDF\Demo Document", FileFormat:=wdFormatXMLDocumentMacroEnabled
  Else
    oDoc.SaveAs Filename:=m_strRoot & "\Files\Pleadings\PDF\Demo Document", FileFormat:=wdFormatXMLDocumentMacroEnabled
  End If
  oDoc.Close
'  Set oDoc = Documents.Add
'  If Application.Version > 12# Then
'    oDoc.SaveAs2 Filename:=m_strRoot & "\Files\Letters\Demo Document", FileFormat:=wdFormatXMLDocumentMacroEnabled
'  Else
'    oDoc.SaveAs Filename:=m_strRoot & "\Files\Letters\Demo Document", FileFormat:=wdFormatXMLDocumentMacroEnabled
'  End If
'  oDoc.Close
lbl_Exit:
  Set oDoc = Nothing
  Exit Sub
End Sub

Sub DirectAttempt()
  'After the error occurs, no attempt to delete the offending empty folder will work.
  RmDir "C:\Demo Issue\Files\Pleadings\PDF"
End Sub


'Supporting functions
Private Function CreateFolder(ByRef strPath As String)
Dim lngIndex As Long
Dim vPath As Variant
  vPath = Split(strPath, "\")
  strPath = vPath(0) & "\"
  For lngIndex = 1 To UBound(vPath)
    strPath = strPath & vPath(lngIndex) & "\"
    If Not fcnDirExists(strPath) Then MkDir strPath
  Next lngIndex
lbl_Exit:
  Exit Function
End Function

Function fcnDirExists(PathName As String) As Boolean
Dim lngTemp As Integer
  On Error Resume Next
  lngTemp = GetAttr(PathName)
  Select Case Err.Number
    Case Is = 0: fcnDirExists = True
    Case Else: fcnDirExists = False
  End Select
  'Resume error checking
  On Error GoTo 0
lbl_Exit:
  Exit Function
End Function

Cross posted at: Path/Access Error
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Path/Access Error Madness Why error when starting up word from Access ksor Word VBA 1 02-01-2018 02:26 PM
Path/Access Error Madness Error with UNC path Troy R Mail Merge 1 11-11-2015 09:06 AM
Path/Access Error Madness get access database path in Word vba marooned Word VBA 2 07-04-2012 06:37 AM
Need help: Error 554 Relay Access Denied HongKongCV Outlook 5 03-13-2011 10:00 AM
cursor madness jamesschot Word 0 02-18-2010 07:32 AM


All times are GMT -7. The time now is 10:52 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2019 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft