Solved

Rename, delete MD in Filelistbox and dirlistbox

Posted on 1998-09-14
7
535 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
Industry Leaders: 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!

 
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

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
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…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

761 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