All pastes #97061 Raw Edit

Anonymous

public text v1 · immutable
#97061 ·published 2006-07-23 10:45 UTC
rendered paste body
Dim strFilename As String
strFilename = Dir("*.*")
Do While strFilename <> ""
  Text1.Text = strFilename & vbNewLine
  strFilename = Dir
Loop