[RESOLVED] message box

[lilwupster]

At the moment I have a message box that you can type in a user name to get to a file in a folder (ex: C:\User.txt) (User being the username entered).

How can I get the list box to list all the .txt files in the C:\ folder so the Username does not have to be typed and only has to be clicked and opened.

[d3gerald]

to view files inside a directory, use the filelistbox

[lilwupster]

I know that, but can I get that in a message box?

[d3gerald]

you mean you want to put a filelistbox in a message box?

[lilwupster]

yes, if possible

[d3gerald]

well you cant do that with a message box but it is posible, just create a customized form, design it to look like a message box. place the controls you want on it and show it in vbmodal mode

Form1.Show vbModal

[Bruce Fox]

Something like:

Option Explicit
 
Private Sub Form_Load()
Dim strBuff As String
 
    strBuff = Dir$("C:\Temp\*.txt")
    
    If Len(strBuff) <> 0 Then
 
        Do
            List1.AddItem strBuff
            strBuff = Dir$
        Loop Until Len(strBuff) = 0
 
    End If
 
End Sub
 
Private Sub List1_Click()
    Shell ("NotePad.exe C:\Temp\" & List1.Text)
End Sub

[Spajeoly]

Wassup Bruce!

Anyway, you can display the available options in your input box so they can know what they have available.

Dim TheList$
 
   For i = 0 To File1.ListCount - 1
      TheList = TheList & File1.List(i) & VbCrLf
   Next
      
         FileName = Inputbox("Which File would you like to open?" & Vbcrlf & TheList, "Type File Name.")

Just a thought.

[Rob123]

By message box, I assume you mean the dialog open box.
Try this:

CommonDialog1.InitDir = "C:\"
CommonDialog1.Filter = "User Files|*.txt|"
CommonDialog1.ShowOpen

You'll need to add the component "Microsoft common dialog 6.0"
It'll open up a dialog box in the C:\ Directory, and only show text files + folders. If you want the filter to be more specific with the user files, you could change the extension of the userfiles to .User, or something similiar, and then edit
CommonDialog1.Filter = "User Files|*.txt|" to be
CommonDialog1.Filter = "User Files|*.User|"

Hope this can help

[lilwupster]

thank you d3gerald and bruce fox both your ideas did work, the only problem i had with the file list box was that I couldn't figure out how to set it to a specific location. It would only go to vbs default location.

Rob, sry but I do mean an actual message box, not the common dialog

[lilwupster]

bruce fox, is there a way to in asternative to opening the files, delete them?

[lilwupster]

i have another question, why won't it save anymore. I have the file save when exiting vb (you can edit it when the program is running in the vbwindow) and I exit on form1 even though I open on form2...

[Hack]

bruce fox, is there a way to in asternative to opening the files, delete them?

Do you want to delete them or just empty them out?

i have another question, why won't it save anymore. I have the file save when exiting vb (you can edit it when the program is running in the vbwindow) and I exit on form1 even though I open on form2...

Is the file save code in the unload event of your startup form?

[lilwupster]

I want to be able to delete a file I select from the listbox

and no, the save code is in the unload event for my second form that is activated through the startup

[lilwupster]

I can work around the not saving part but I still need a way to delete

[Hack]

I want to be able to delete a file I select from the listbox

Will you be selecting one file at a time or multiple files?

[lilwupster]

one at a time

[Hack]

one at a time

Assuming the listbox entry contains both the full path and filename, try

Private Sub Command1_Click()
Kill List1.List(List1.ListIndex)
End Sub

You should probably add some code to ensure something in the listbox is selected before issuing the Kill statement.

[lilwupster]

It keeps saying file not found

Dim FileDelete As Integer
FileDelete = MsgBox("delete?", vbOKCancel)
If FileDelete = 1 Then
Kill List3.List(List3.ListIndex)
MsgBox "Deleted"
End If

[lilwupster]

o, i see i needed

Kill "C:\" & List3.List(List3.ListIndex)

[Hack]

o, i see i needed

Kill "C:\" & List3.List(List3.ListIndex)

Are you storing the file names without the path?

[lilwupster]

no, i do have the path

[Hack]

no, i do have the path

Then you shouldn't need to append the drive letter.

Post a sample example of what might be in your listbox.

[lilwupster]

I have it save to
"C:\" & User 'user being a string
Then when I load the form I use what Bruce Fox had



Dim strBuff As String

strBuff = Dir$("C:\*.me")

If Len(strBuff) <> 0 Then

Do
List3.AddItem strBuff
strBuff = Dir$
Loop Until Len(strBuff) = 0

End If


So then I can select 1 of the files listed and use



Dim FileDelete As Integer
FileDelete = MsgBox("Are you sure you want to delete" & List3.Text & "?", vbOKCancel)
If FileDelete = 1 Then
Kill "C:\" & List3.List(List3.ListIndex)
List3.RemoveItem (List3.ListIndex)
MsgBox " Deleted"
End If

[Hack]

But, if you save it as c:\hack.txt then that will be in your listbox and you won't need to preface list3.list(list3.listindex) with c:\

Does the item in your listbox appear as: c:\hack.txt?

[lilwupster]

no, just hack.txt

[Hack]

no, just hack.txt

Ah...are all of these files in the root folder of C:? Is this working then?[quote=lilwupster]Kill "C:\" & List3.List(List3.ListIndex)[/Highlight]

[lilwupster]

yes,

[Hack]

So, is this issue resolved, or do you still have questions on something?

[lilwupster]

it is resolved

[Hack]

Thanks. The easiest way to mark a thread resolved is to pull down the Thread Tools menu and click the Mark Thread Resolved button.