Option Explicit ' VBA ពន្លាឯកសារ ZIP RAR and FIle

Sub Test1()
    Dim PathFile As String
    Dim NameArhiv As String
    Dim NameCDR As String
    
    Dim FSO As Object
    
    
        PathFile = "C:\Users\khmer\Downloads\New folder (11)\"
        NameArhiv = "Untitled-1_TIFs.zip"
        NameCDR = "Untitled-1.cdr"
        
        
     Set FSO = CreateObject("Scripting.FileSystemObject")
     
     With FSO
       .CopyFile (PathFile & NameCDR), (PathFile & NameArhiv)
     End With
     
     
        With CreateObject("Shell.Application")
            .Namespace((PathFile)).CopyHere (PathFile & NameArhiv) & "\previews\" & "thumbnail.png"
        End With
        
'        With CreateObject("Shell.Application")
'            .Namespace((PathFile)).CopyHere .Namespace((PathFile & NameArhiv)).Items
'        End With
        
        FSO.DeleteFile (PathFile & NameArhiv)
    
End Sub