Drive listings

[ppppp]

Say for example you want to create a fake-format to scare the crap out of a friend.:eek:

Now, think of the code you would need to make it diplay the filename and path of each file on the computer(Including network drives too, if possible).

Now, click "Reply" and type the code!

Thank you!:D :)

[Jotaf98]

Huh... it's been done, sorry :D

http://www.rjlsoftware.com/default.shtml

Anyway, you'd use something like this:



Dim Temp As String
Temp = Dir("")
Do
'Show the user that we're deleting the file Temp :)

Temp = Dir()
Loop While Temp <> ""



I don't know if that works. Also don't ask how, read something on the Dir function :D

[ppppp]

Ok that seems to make sense but I modified it and I only got one file to show.DATAVIEW.DLL .How would you slow it down? And I want the path too...

Preferably not a timer.

[Zaei]

Add a DoEvents after you change the caption.

As an aside, someone paid $23 earlier today on RentACoder to find out why their form wouldnt respond while processing a large amount of data in a loop =). I bid $4 (minimum)... Dont know what the guy was thinking...

Z.

[ppppp]

DoEvents??
Typed it in like this:

Private Sub form_load()
Dim Temp As String
Temp = Dir("")
Do
Label1.Caption = Temp
DoEvents
Temp = Dir()
Loop While Temp <> ""
End Sub

Now I've got COMCTL32.oca:confused:

That fakeformats good but I want another style in it. Thanx anywayz