Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
Private Sub Command1_Click()
Private Sub FillFileList(byval sFolder as string)
Dim sFilename as string
list1.clear '<--- added this in case you call the sub more than once.
if Right (sFolder,1) <> "\" then sFolder = sFolder & "\"
sFilename = Dir$(sFolder & *.xls")
do until sFilename = ""
if Right(sFilename,4) <> "xlsx" then
sFilename = Dir$
Private Function ClipExt(byval fname as string) as string
Dim nPos as string
nPos = InStrRev(fname,".")
if nPos > 0 then
fname = mid(fname,1,nPos-1)
ClipExt = fname
Open in new window
Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.