Solved

Rename, delete MD in Filelistbox and dirlistbox

Posted on 1998-09-14
7
527 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
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
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
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

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

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…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
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…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

744 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now