Witam,
stworzyłem formularz w Accessie, a w nim przycisk pod którym kryje się uruchomienie kodu rozpakowującego pliki .zip w określonym folderze. Każdorazowo podaję ścieżkę, gdzie ten plik się znajduje.
Spakowany plik posiada nazwę np. a.zip, w nim jest plik b.pdf. Chciałbym jednak, aby po rozpakowaniu plik został zapisany jako a.pdf, a nie b.pdf
Obecny kod wygląda następująco. Jakby ktoś mógł rzucić okiem co nim zmienić, żeby sterować nazwą zapisywanego pliku.
Dim File As Object
Dim Files As Object
Dim MainFldr As Object
Dim MainPath As Variant
Dim oShell As Object
Dim ZipFile As Variant
Dim ZipFldr As Object
Dim nowaNazwa As String
MainPath = Me.sciezka
Set oShell = CreateObject("Shell.Application")
Set MainFldr = oShell.Namespace(MainPath)
Set Files = MainFldr.items
Files.Filter 32, "*.zip"
For Each File In Files
Set ZipFldr = oShell.Namespace(File)
For Each ZipFile In ZipFldr.items
MainFldr.CopyHere ZipFile.path
Next ZipFile
Next File
End Sub