Solved

Rename, delete MD in Filelistbox and dirlistbox

Posted on 1998-09-14
7
536 Views
Last Modified: 2012-05-04
I want to be able to Rename, Delete and Make Directory in the FileListBox and the DirListBox. Have do I do that?
0
Comment
Question by:ChristianJ
[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
7 Comments
 

Author Comment

by:ChristianJ
ID: 1434787
Edited text of question
0
 

Author Comment

by:ChristianJ
ID: 1434788
This will mean a lot to me. I have tried to solve this on my own for month, but I didn't make it.
0
 
LVL 2

Expert Comment

by:rene100
ID: 1434789
what do you mean with ...in the filelistbox?
when you want to rename, del or md files/dirs, then you
can use the vb commands for this

re
0
PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

 
LVL 2

Expert Comment

by:wj7ster
ID: 1434790
You cannot do this from the FileListBox or DirListBox.  Use the VB commands:
'MkDir'  = Make directory
'RmDir'  = Remove (delete) directory
'Name oldpathname As newpathname' = rename/move a folder/file
0
 

Author Comment

by:ChristianJ
ID: 1434791
In my program i have a filelistbox and when I mark a file I want to be able to rename it, or delete it.
0
 

Author Comment

by:ChristianJ
ID: 1434792
If I change the filelist to a listview is it possible to use the commands RmDir, MkDir and delete (While runing the program)?
0
 
LVL 2

Accepted Solution

by:
AllenC_Jr earned 50 total points
ID: 1434793
Here is an example of renaming a file with a ListView.

Private Path as String
Private Sub RenameFile(FileNameFrom as String, FileNameTo as String)
If Not CheckFile(FileNameFrom) Then Exit Sub
FileCopy FileNameFrom, FileNameTo
Kill FileNameFrom
End Sub
Private Sub CheckFile(FileName as String)
Dim m_FLen as Long
CheckFile=True'Assume Success
On Error Resume Next
m_FLen = FileLen(FileName)
If ERR <>0 Then CheckFile=False
End Sub
Private Sub lvList_AfterLabelEdit(Cancel As Integer, NewString as String)
'*Note Replace The 'Path' With The Currently Viewed Directory(you could privately create a variable or keep it the same)
On Error Resume Next
If lvList.SelectedItem Is Nothing Then Exit Sub
If Right(Path, 1)  = "\" Then
RenameFile Path & lvList.SelectedItem.Text, Path & NewString
Else
RenameFile Path & "\" & lvList.SelectedItem.Text, Path & "\" & NewString
End If
End Sub

Hope This Helps
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
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…

752 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