?
Solved

Can't delete files in both root and folder, just one of them

Posted on 1999-01-09
1
Medium Priority
?
149 Views
Last Modified: 2010-05-03
I have a problem with file deletion. It's on this row 8. When the "\" is there I can delete files in any folder, but not in the root. (C:\\). If I remove the "\" I can delete files in the root directory, but then it doesn't work to delete files in folders. Can anyone help me to solve how to delete files in folders and in the root directory at the same time?

Here are the codes I use:

1. Dim r As Long
2. Dim file2Delete As String
3. Dim fPath As String
4. Dim ActionFlag As Long

5. fPath = Dir1.Path
6. file2Delete = File1.filename

7. file2Delete = File1.List(File1.ListIndex)
8. file2Delete = fPath & "\" & file2Delete

9. ActionFlag = 0&
10. If optDeleteOption(0).Value Then ActionFlag = FOF_ALLOWUNDO

11. ShellDeleteOne file2Delete, ActionFlag

It will mean a lot to me if anyone solve this.
0
Comment
Question by:Ecmil
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 

Accepted Solution

by:
halsch earned 300 total points
ID: 1455059
Between lines 5 and 6 add:
If Right(fPath,1)="\" then fPath = Left(fPath, Len(fPath)-1))

This will assure that the Directory does NOT end with a "\".  You can then concatenate a "\" without problems in line 8.

The conditional code will be executed only in the root directory.

Alternatively, you can remove the '& "\"' from line 8 and after line 5, add:
If Right(fPath,1)<>"\" then fPath = fPath & "\"

Either way should work.

Good Luck!
Hal
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Suggested Courses

764 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question