vba code to select file and unzip files in a different folder with different name

[karthikha0706]

HI All, Am looking for a vba code to select a file from a folder and unzip the file in a different folder with different file name. Can you please assist me with the code.
Thanks in advance.

 

[karthikha0706]

​

So each of your real text filename starts with only 3 letters and forever, never be changed ?​

Yes Marc. Also, i would like to overwrite the 3 csv files daily when i unzip the files in a particular folder.

 

[karthikha0706]

​

So each of your real text filename starts with only 3 letters and forever, never be changed ?​

Yes Marc. Your understanding is correct. Also, i would like to overwrite the 3 csv files daily when i unzip the files in a particular folder.

 

[Marc L]

​

So each zip file contains a single text file only which has always the same name as the zip file ?​

 

[karthikha0706]

​

So each zip file contains a single text file only which has always the same name as the zip file ?​

Yes Marc. However date is attached to the zip file . For example today i will get the file as ABC070721.zip and tomorrow ABC080721.zip and so on....

 

[Marc L]

​

Last option : once a file extracted and renamed should its zip container be deleted from the source folder ?​

 

[Marc L]

​

Last question as there are different ways : is the destination folder C:\XYZ always empty (or without any .csv text file) before the zip extraction ?​

 

[Marc L]

​

Forget previous question, just answer to post #15 …​

 

[karthikha0706]

​

Last option : once a file extracted and renamed should its zip container be deleted from the source folder ?​

Yes Marc. No issues, we can delete the zip files once the csv files are extracted at the required folder.

 

[Marc L]

A VBA demonstration for starters :​

Sub DemoUnZip1()
      Const D = "C:\XYZ\", S = "C:\Download\", C = ".csv"
        Dim Z$, oSh As Object, F$, N$
    With CreateObject("Scripting.FileSystemObject")
            Z = Dir$(S & "*.zip"):  If Z = "" Or Not .FolderExists(D) Then Beep: Exit Sub
            Set oSh = CreateObject("Shell.Application")
        Do
               F = oSh.NameSpace(S & Z).Items.Item(0).Name
            If F Like "???######" & C Then
                oSh.NameSpace(D).CopyHere oSh.NameSpace(S & Z).ParseName(F), 16
                N = D & Left$(F, 3) & C:  If .FileExists(N) Then .DeleteFile N, True
               .MoveFile D & F, N
               .DeleteFile S & Z, True
            End If
                   Z = Dir$
        Loop Until Z = ""
             Set oSh = Nothing
    End With
End Sub

 

[karthikha0706]

​

Last question as there are different ways : is the destination folder C:\XYZ always empty (or without any .csv text file) before the zip extraction ?​

No Marc. The destination folder XYZ contains other csv files.....and previous days extraction of

​

Forget previous question, just answer to post #15 …​

​

Last question as there are different ways : is the destination folder C:\XYZ always empty (or without any .csv text file) before the zip extraction ?​

No Marc. The destination folder XYZ contains other csv files.....and previous days extraction of abc.csv, def.csv and ghi.csv