Get Information File With FSO


dim fso as new scripting.fileSystemObject

dim fld as scripting.folder

set fld=fso.getfolder(“C:\tmp”)

dim fil as scripting.filefor each fil in fld.files

me.lst.AddItem (fil.name)

next fil

set fso=nothing

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s