List Directory- Include Hiden files - Access !?

ragazzo

Hi,
I am using this code in access form to list everything in directory but it did`not show hidden or system files.
how works this code to list all files include hidden or system files.?

Expand|Select|Wrap|Line Numbers

 Private Sub Form_Load()

Dim LoadFiles   As String

Dim strFill     As String
 
LoadFiles = dir$("c:\*.*")

Do While LoadFiles > ""

strFill = strFill & LoadFiles & ";" 

LoadFiles = dir$

Loop

lstFiles.RowSource = strFill
 
End Sub

Thank you

ADezii

Try:

Expand|Select|Wrap|Line Numbers

 Dim LoadFiles As String

Dim strFill As String
 
LoadFiles = Dir$("c:\*.*", vbbHidden Or vbSystem)
 
Do While LoadFiles <> ""

  strFill = strFill & LoadFiles & ";"

  LoadFiles = Dir$

Loop
 
lstFiles.RowSource = strFill

ragazzo

Quote:

Originally Posted by ADezii

Try:

Expand|Select|Wrap|Line Numbers

 Dim LoadFiles As String

Dim strFill As String
 
LoadFiles = Dir$("c:\*.*", vbHidden Or vbSystem)
 
Do While LoadFiles <> ""

  strFill = strFill & LoadFiles & ";"

  LoadFiles = Dir$

Loop
 
lstFiles.RowSource = strFill

It Works Many thanks ......

ADezii

Quote:

Originally Posted by ragazzo

It Works Many thanks ......

Glad it works for you.

List Directory- Include Hiden files - Access !?

re: List Directory- Include Hiden files - Access !?

re: List Directory- Include Hiden files - Access !?

re: List Directory- Include Hiden files - Access !?

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about