Become a Premium Member and unlock a new, free course in leading technologies each month.
Go Premium for a chance to win a PS4. Enter to Win
Dim SourcePath As String, Filename As String
SourcePath = "D:\AmiBroker Data\BSE\Eq\"
Filename = Dir(SourcePath)
Do While Len(Filename) > 0
If Right(Filename, 3) = "zip" Then
Call UnZipFile(SourcePath, Filename)
Kill SourcePath & Filename
Filename = Dir()
Sub UnZipFile(strTargetPath As String, Fname As String)
Dim oApp As Object
Dim FileNameFolder As Variant
If Right(strTargetPath, 1) <> Application.PathSeparator Then
strTargetPath = strTargetPath & Application.PathSeparator
FileNameFolder = strTargetPath
dPath = "D:\AmiBroker Data\BSE\Eq\"
Set oApp = CreateObject("Shell.Application")
On Error Resume Next
oApp.Namespace(dPath).CopyHere oApp.Namespace(FileNameFolder & Fname).Items
On Error GoTo 0
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Author Closing Comment
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.
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!