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
Author Closing Comment
Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!