Unable to delete folder

[biganthony via AccessMonster.com]

Hi,

I have the following code to select a folder and then delete it. I keep
getting a Path/File error on the line that deletes the actual folder. The
line before that line deletes the files in the folder but I get the error
message when the procedure attempts to delete the folder selected in the
BrowseforFolder byPath function.

How can I get it to delete the folder that the user has selected in the
Browse for Folder dialog?
Thanks,
Anthony
*************** ********* BEGIN CODE SNIPPET *************** ***************

ArchiveFolder = BrowseForFolder ByPath(ProgramP ath)

'check if user has clicked the Cancel button.
If ArchiveFolder = vbNullString Then

Exit Sub

End If

'check if the selected folder is under the program folder.
If Left(ArchiveFol der, Len(ArchiveFold er) - 5) <ProgramPath Or
(Right(ArchiveF older, 4)) Like "*[!0-9]*" Then

MsgBox "That is an invalid Archive folder." & Chr$(13) & Chr$(13)
& _
"Archives are located in the " & ProgramPath & " folder." & Chr$
(13) & Chr$(13) & _
"Please select an archive in the " & ProgramPath & " folder.",
vbOKOnly + vbInformation, "Invalid Archive Folder."

Exit Sub

End If

strDeleteQuesti on = MsgBox("Do you really want to delete the " &
ArchiveFolder & " archive?", vbYesNo + vbQuestion, "Delete Archive.")

If strDeleteQuesti on = vbYes Then

'delete all files in the selected archive folder.
Kill ArchiveFolder & "\*.*" <----------------
- this line works.

Delete_Destinat ion = ArchiveFolder & "\" <------ this
line fails.

RmDir Delete_Destinat ion

MsgBox "The Archive has been successfully deleted.", vbOKOnly
+ VbInformation, "Success!"

End If

*************** ************* END CODE SNIPPET
*************** *************** **************

This is the function I'm using for the Browseforfolder byPath:
Public Function BrowseForFolder ByPath(sSelPath As String) As String

Dim BI As BROWSEINFO
Dim pidl As Long
Dim lpSelPath As Long
Dim spath As String * MAX_PATH

With BI
.hOwner = Me.hwnd
.pidlRoot = 0
If RestoreArchive = True Then
.lpszTitle = "Archives are located under the application's folder." &
Chr$(13) & "What Archive do you want to Restore?"
Else
.lpszTitle = "Archives are located under the application's folder." &
Chr$(13) & "What Archive do you want to Delete?"
End If

.lpfn = FARPROCl(Addres sOf BrowseCallbackP rocStr)

lpSelPath = LocalAlloc(LPTR , Len(sSelPath) + 1)
CopyMemory ByVal lpSelPath, ByVal sSelPath, Len(sSelPath) + 1
.lParam = lpSelPath

End With

pidl = SHBrowseForFold er(BI)

If pidl Then

If SHGetPathFromID List(pidl, spath) Then
BrowseForFolder ByPath = Left$(spath, InStr(spath, vbNullChar) - 1)
End If

Call CoTaskMemFree(p idl)

End If

Call LocalFree(lpSel Path)

End Function

Public Function IsWinNT() As Boolean

#If Win32 Then

Dim OSV As OSVERSIONINFO

OSV.OSVSize = Len(OSV)

'API returns 1 if a successful call
If GetVersionEx(OS V) = 1 Then

'PlatformId contains a value representing
'the OS, so if it's VER_PLATFORM_WI N32_NT,
'return true
IsWinNT = OSV.PlatformID = VER_PLATFORM_WI N32_NT
End If

#End If

End Function

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200705/1

[biganthony via AccessMonster.com]

Just realised that I highlighted the incorrect line. The line thar is failing
is:

Â*RmDir Delete_Destinat ion

Is it failing because the folder to be deleted is still "locked" by the
browseforfolder bypath function?


biganthony wrote:

>Hi,

I have the following code to select a folder and then delete it. I keep
getting a Path/File error on the line that deletes the actual folder. The
line before that line deletes the files in the folder but I get the error
message when the procedure attempts to delete the folder selected in the
BrowseforFolde rbyPath function.

How can I get it to delete the folder that the user has selected in the
Browse for Folder dialog?

Thanks,
Anthony

************** ********** BEGIN CODE SNIPPET *************** ***************

ArchiveFolder = BrowseForFolder ByPath(ProgramP ath)

'check if user has clicked the Cancel button.
If ArchiveFolder = vbNullString Then

Exit Sub

End If

'check if the selected folder is under the program folder.
If Left(ArchiveFol der, Len(ArchiveFold er) - 5) <ProgramPath Or
(Right(Archive Folder, 4)) Like "*[!0-9]*" Then

MsgBox "That is an invalid Archive folder." & Chr$(13) & Chr$(13)
& _
"Archives are located in the " & ProgramPath & " folder." & Chr$
(13) & Chr$(13) & _
"Please select an archive in the " & ProgramPath & " folder.",
vbOKOnly + vbInformation, "Invalid Archive Folder."

Exit Sub

End If

strDeleteQuesti on = MsgBox("Do you really want to delete the " &
ArchiveFolde r & " archive?", vbYesNo + vbQuestion, "Delete Archive.")

If strDeleteQuesti on = vbYes Then

'delete all files in the selected archive folder.

Kill ArchiveFolder & "\*.*" <----------------
- this line works.

Delete_Destinat ion = ArchiveFolder & "\" <------ this
line fails.

RmDir Delete_Destinat ion

MsgBox "The Archive has been successfully deleted.", vbOKOnly
+ VbInformation, "Success!"

End If

************** ************** END CODE SNIPPET
************** *************** ***************

This is the function I'm using for the Browseforfolder byPath:

Public Function BrowseForFolder ByPath(sSelPath As String) As String

Dim BI As BROWSEINFO
Dim pidl As Long
Dim lpSelPath As Long
Dim spath As String * MAX_PATH

With BI
.hOwner = Me.hwnd
.pidlRoot = 0
If RestoreArchive = True Then
.lpszTitle = "Archives are located under the application's folder." &
Chr$(13) & "What Archive do you want to Restore?"
Else
.lpszTitle = "Archives are located under the application's folder." &
Chr$(13) & "What Archive do you want to Delete?"
End If

.lpfn = FARPROCl(Addres sOf BrowseCallbackP rocStr)

lpSelPath = LocalAlloc(LPTR , Len(sSelPath) + 1)
CopyMemory ByVal lpSelPath, ByVal sSelPath, Len(sSelPath) + 1
.lParam = lpSelPath

End With

pidl = SHBrowseForFold er(BI)

If pidl Then

If SHGetPathFromID List(pidl, spath) Then
BrowseForFolder ByPath = Left$(spath, InStr(spath, vbNullChar) - 1)
End If

Call CoTaskMemFree(p idl)

End If

Call LocalFree(lpSel Path)

End Function

Public Function IsWinNT() As Boolean

#If Win32 Then

Dim OSV As OSVERSIONINFO

OSV.OSVSize = Len(OSV)

'API returns 1 if a successful call
If GetVersionEx(OS V) = 1 Then

'PlatformId contains a value representing
'the OS, so if it's VER_PLATFORM_WI N32_NT,
'return true
IsWinNT = OSV.PlatformID = VER_PLATFORM_WI N32_NT
End If

#End If

End Function

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200705/1

[salad]

biganthony via AccessMonster.c om wrote:

Just realised that I highlighted the incorrect line. The line thar is failing
is:

RmDir Delete_Destinat ion

Is it failing because the folder to be deleted is still "locked" by the
browseforfolder bypath function?

Doubtful.

Do you have rights to delete the folder?

Prior to deleting, do something like
msgbox Delete_Destinat ion
Does that look correct?

Do you get an error message? If so, what is the error number and error
message?

>

biganthony wrote:

>>Hi,

I have the following code to select a folder and then delete it. I keep
getting a Path/File error on the line that deletes the actual folder. The
line before that line deletes the files in the folder but I get the error
message when the procedure attempts to delete the folder selected in the
BrowseforFold erbyPath function.

How can I get it to delete the folder that the user has selected in the
Browse for Folder dialog?

Thanks,
Anthony

************* *********** BEGIN CODE SNIPPET *************** ***************

ArchiveFolder = BrowseForFolder ByPath(ProgramP ath)

'check if user has clicked the Cancel button.
If ArchiveFolder = vbNullString Then

Exit Sub

End If

'check if the selected folder is under the program folder.
If Left(ArchiveFol der, Len(ArchiveFold er) - 5) <ProgramPath Or
(Right(Archiv eFolder, 4)) Like "*[!0-9]*" Then

MsgBox "That is an invalid Archive folder." & Chr$(13) & Chr$(13)
& _
"Archives are located in the " & ProgramPath & " folder." & Chr$
(13) & Chr$(13) & _
"Please select an archive in the " & ProgramPath & " folder.",
vbOKOnly + vbInformation, "Invalid Archive Folder."

Exit Sub

End If

strDeleteQuesti on = MsgBox("Do you really want to delete the " &
ArchiveFold er & " archive?", vbYesNo + vbQuestion, "Delete Archive.")

If strDeleteQuesti on = vbYes Then

'delete all files in the selected archive folder.

Kill ArchiveFolder & "\*.*" <----------------
- this line works.

Delete_Destinat ion = ArchiveFolder & "\" <------ this
line fails.

RmDir Delete_Destinat ion

MsgBox "The Archive has been successfully deleted.", vbOKOnly
+ VbInformation, "Success!"

End If

************* *************** END CODE SNIPPET
************* *************** *************** *

This is the function I'm using for the Browseforfolder byPath:

Public Function BrowseForFolder ByPath(sSelPath As String) As String

Dim BI As BROWSEINFO
Dim pidl As Long
Dim lpSelPath As Long
Dim spath As String * MAX_PATH

With BI
.hOwner = Me.hwnd
.pidlRoot = 0
If RestoreArchive = True Then
.lpszTitle = "Archives are located under the application's folder." &
Chr$(13) & "What Archive do you want to Restore?"
Else
.lpszTitle = "Archives are located under the application's folder." &
Chr$(13) & "What Archive do you want to Delete?"
End If

.lpfn = FARPROCl(Addres sOf BrowseCallbackP rocStr)

lpSelPath = LocalAlloc(LPTR , Len(sSelPath) + 1)
CopyMemory ByVal lpSelPath, ByVal sSelPath, Len(sSelPath) + 1
.lParam = lpSelPath

End With

pidl = SHBrowseForFold er(BI)

If pidl Then

If SHGetPathFromID List(pidl, spath) Then
BrowseForFolder ByPath = Left$(spath, InStr(spath, vbNullChar) - 1)
End If

Call CoTaskMemFree(p idl)

End If

Call LocalFree(lpSel Path)

End Function

Public Function IsWinNT() As Boolean

#If Win32 Then

Dim OSV As OSVERSIONINFO

OSV.OSVSize = Len(OSV)

'API returns 1 if a successful call
If GetVersionEx(OS V) = 1 Then

'PlatformId contains a value representing
'the OS, so if it's VER_PLATFORM_WI N32_NT,
'return true
IsWinNT = OSV.PlatformID = VER_PLATFORM_WI N32_NT
End If

#End If

End Function

[biganthony via AccessMonster.com]

Salad,

Thanks for replying.

First, I have full rights to the folder - it is a local folder.
Second, the error message is: "Path/File Access Error." and the error number
is 75.
Thirdly, I did this: msgbox Delete_Destinat ion and the folder appears
correctly.

The strange thing is the code works on my desktop at home. That computer is
running Win XP x64 and Office 2003 Professional. When I run it on my laptop I
get the error. The laptop is running Win XP Pro and Office 2003 Professional.
Besides that, I cannot work out any other differences to help explain why it
won't work on my laptop.

Thanks again,
Anthony


salad wrote:

>Just realised that I highlighted the incorrect line. The line thar is failing
is:

[quoted text clipped - 3 lines]

>Is it failing because the folder to be deleted is still "locked" by the
browseforfolde rbypath function?

Doubtful.

Do you have rights to delete the folder?

Prior to deleting, do something like
msgbox Delete_Destinat ion
Does that look correct?

Do you get an error message? If so, what is the error number and error
message?

>>>Hi,

[quoted text clipped - 123 lines]

>>>
End Function

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200705/1

[salad]

biganthony via AccessMonster.c om wrote:

Salad,

Thanks for replying.

First, I have full rights to the folder - it is a local folder.
Second, the error message is: "Path/File Access Error." and the error number
is 75.
Thirdly, I did this: msgbox Delete_Destinat ion and the folder appears
correctly.

The strange thing is the code works on my desktop at home. That computer is
running Win XP x64 and Office 2003 Professional. When I run it on my laptop I
get the error. The laptop is running Win XP Pro and Office 2003 Professional.
Besides that, I cannot work out any other differences to help explain why it
won't work on my laptop.

Thanks again,
Anthony


salad wrote:

>>>Just realised that I highlighted the incorrect line. The line thar is failing
is:

[quoted text clipped - 3 lines]

>>>Is it failing because the folder to be deleted is still "locked" by the
browseforfol derbypath function?

Doubtful.

Do you have rights to delete the folder?

Prior to deleting, do something like
msgbox Delete_Destinat ion
Does that look correct?

Do you get an error message? If so, what is the error number and error
message?

>>>>Hi,

[quoted text clipped - 123 lines]

>>>>End Function

This is what I have from A97 help on error 75. I doubt it's changed
much. Are you sure all subfolders and files have been removed first?
During a file-access or disk-access operation, for example, Open, MkDir,
ChDir, or RmDir, the operating system couldn't make a connection between
the path and the file name. This error has the following causes and
solutions:

· The file specification isn't correctly formatted.

A file name can contain a fully qualified (absolute) or relative path. A
fully qualified path starts with the drive name (if the path is on
another drive) and lists the explicit path from the root to the file.
Any path that isn't fully qualified is relative to the current drive and
directory.

· You attempted to save a file that would replace an existing read-only
file.

Change the read-only attribute of the target file or save the file with
a different file name.

· You attempted to open a read-only file in sequential Output or Append
mode.

Open the file in Input mode or change the read-only attribute of the file.

For additional information, select the item in question and press F1.

[Alan Carpenter]

Help - Kill - See Also.

RmDir Statement

Syntax

RmDir path

The required path argument is a string expression that identifies the
directory or folder to be removed. The path may include the drive. If no
drive is specified, RmDir removes the directory or folder on the current
drive.

Remarks

An error occurs if you try to use RmDir on a directory or folder containing
files. Use the Kill statement to delete all files before attempting to
remove a directory or folder.

This example uses the RmDir statement to remove an existing directory or
folder.

' Assume that MYDIR is an empty directory or folder.
RmDir "MYDIR" ' Remove MYDIR.

Cheers,
Alan

"biganthony via AccessMonster.c om" <u31673@uwewrot e in
news:727d4bfe8f 481@uwe:

Hi,

I have the following code to select a folder and then delete it. I
keep getting a Path/File error on the line that deletes the actual
folder. The line before that line deletes the files in the folder but
I get the error message when the procedure attempts to delete the
folder selected in the BrowseforFolder byPath function.

How can I get it to delete the folder that the user has selected in
the Browse for Folder dialog?
Thanks,
Anthony

[biganthony via AccessMonster.com]

Alan,

All the files are deleted in the folder before attempting to delete the
folder.

The code I wrote above works on one computer but not the other. So there must
be something unique about the computer it does not work on. I'm at a loss to
determine why it doesn't work.

thanks
Anthony
Alan Carpenter wrote:

>Help - Kill - See Also.

RmDir Statement

Syntax

RmDir path

The required path argument is a string expression that identifies the
directory or folder to be removed. The path may include the drive. If no
drive is specified, RmDir removes the directory or folder on the current
drive.

Remarks

An error occurs if you try to use RmDir on a directory or folder containing
files. Use the Kill statement to delete all files before attempting to
remove a directory or folder.

This example uses the RmDir statement to remove an existing directory or
folder.

' Assume that MYDIR is an empty directory or folder.
RmDir "MYDIR" ' Remove MYDIR.

Cheers,
Alan

>Hi,

[quoted text clipped - 9 lines]

>Thanks,
Anthony

--
Message posted via http://www.accessmonster.com

[Tom van Stiphout]

On Mon, 21 May 2007 03:46:02 GMT, "biganthony via AccessMonster.c om"
<u31673@uwewrot e:

Can you delete the folder manually?
Can you programmaticall y delete another folder you just created (e.g.
c:\test1\)?
Right-click folder Properties. Anything unusual?

-Tom.

>Hi,

I have the following code to select a folder and then delete it. I keep
getting a Path/File error on the line that deletes the actual folder. The
line before that line deletes the files in the folder but I get the error
message when the procedure attempts to delete the folder selected in the
BrowseforFolde rbyPath function.

How can I get it to delete the folder that the user has selected in the
Browse for Folder dialog?
Thanks,
Anthony
************** ********** BEGIN CODE SNIPPET *************** ***************

ArchiveFolder = BrowseForFolder ByPath(ProgramP ath)

'check if user has clicked the Cancel button.
If ArchiveFolder = vbNullString Then

Exit Sub

End If

'check if the selected folder is under the program folder.
If Left(ArchiveFol der, Len(ArchiveFold er) - 5) <ProgramPath Or
(Right(Archive Folder, 4)) Like "*[!0-9]*" Then

MsgBox "That is an invalid Archive folder." & Chr$(13) & Chr$(13)
& _
"Archives are located in the " & ProgramPath & " folder." & Chr$
(13) & Chr$(13) & _
"Please select an archive in the " & ProgramPath & " folder.",
vbOKOnly + vbInformation, "Invalid Archive Folder."

Exit Sub

End If

strDeleteQuesti on = MsgBox("Do you really want to delete the " &
ArchiveFolde r & " archive?", vbYesNo + vbQuestion, "Delete Archive.")

If strDeleteQuesti on = vbYes Then

'delete all files in the selected archive folder.
Kill ArchiveFolder & "\*.*" <----------------
- this line works.

Delete_Destinat ion = ArchiveFolder & "\" <------ this
line fails.

RmDir Delete_Destinat ion

MsgBox "The Archive has been successfully deleted.", vbOKOnly
+ VbInformation, "Success!"

End If

************** ************** END CODE SNIPPET
************** *************** ***************

This is the function I'm using for the Browseforfolder byPath:
Public Function BrowseForFolder ByPath(sSelPath As String) As String

Dim BI As BROWSEINFO
Dim pidl As Long
Dim lpSelPath As Long
Dim spath As String * MAX_PATH

With BI
.hOwner = Me.hwnd
.pidlRoot = 0
If RestoreArchive = True Then
.lpszTitle = "Archives are located under the application's folder." &
Chr$(13) & "What Archive do you want to Restore?"
Else
.lpszTitle = "Archives are located under the application's folder." &
Chr$(13) & "What Archive do you want to Delete?"
End If

.lpfn = FARPROCl(Addres sOf BrowseCallbackP rocStr)

lpSelPath = LocalAlloc(LPTR , Len(sSelPath) + 1)
CopyMemory ByVal lpSelPath, ByVal sSelPath, Len(sSelPath) + 1
.lParam = lpSelPath

End With

pidl = SHBrowseForFold er(BI)

If pidl Then

If SHGetPathFromID List(pidl, spath) Then
BrowseForFolder ByPath = Left$(spath, InStr(spath, vbNullChar) - 1)
End If

Call CoTaskMemFree(p idl)

End If

Call LocalFree(lpSel Path)

End Function

Public Function IsWinNT() As Boolean

#If Win32 Then

Dim OSV As OSVERSIONINFO

OSV.OSVSize = Len(OSV)

'API returns 1 if a successful call
If GetVersionEx(OS V) = 1 Then

'PlatformId contains a value representing
'the OS, so if it's VER_PLATFORM_WI N32_NT,
'return true
IsWinNT = OSV.PlatformID = VER_PLATFORM_WI N32_NT
End If

#End If

End Function

[biganthony via AccessMonster.com]

Tom (and other respondents),

Thank you for taking time to read and help.

I can delete the folder manually through Windows Explorer.

After I receive the error message when attempting to delete the folder
through the above code, I click OK to clear the message. I look in Windows
Explorer and the folder is there but all files have been deleted (as expected)
So I tried something new: If I immediately click the delete archive button
again, the code above runs again. So I select the folder (which is now empty)
from the browseforfolder bypath function, it deletes the folder!

A check in Explorer reveals that the folder is now gone.

So in summary:

When I click the command button for the first time to select the folder for
deletion, the browse for folder dialog opens. I select the desired folder to
delete and click OK. The files are deleted but the folder remains. I receive
the error message as reported above.

I then click the command button to select the same folder for deletion, the
browse folder dialog opens. I select the same folder (which is now empty) and
click OK. The code above runs and the folder is deleted. The folder is
deleted success message appears on screen and a check in Explorer reveals the
folder is now gone.

I am confused - the above code works on one machine, but not the on I'm on
now.

Thanks to all for responding.

Anthony
Tom van Stiphout wrote:

>Can you delete the folder manually?
Can you programmaticall y delete another folder you just created (e.g.
c:\test1\)?
Right-click folder Properties. Anything unusual?

-Tom.

>>Hi,

[quoted text clipped - 123 lines]

>>
End Function

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200705/1

[Alan Carpenter]

Anthony,

Sorry about that. I read your message quickly, replied, read it again and
noticed my error and cancelled my original message. Too slow!

However, that stirred a memory. Could it be that one computer is much
faster than the other?
Perhaps DoEvents:

Kill ArchiveFolder & "\*.*"
Delete_Destinat ion = ArchiveFolder & "\"
DoEvents <--- Added this.
RmDir Delete_Destinat ion

Worth a try.

Cheers,
Alan
"biganthony via AccessMonster.c om" <u31673@uwewrot e in
news:728942a2e8 bca@uwe:

Alan,

All the files are deleted in the folder before attempting to delete
the folder.

The code I wrote above works on one computer but not the other. So
there must be something unique about the computer it does not work on.
I'm at a loss to determine why it doesn't work.

thanks
Anthony