Comments on Alex & Access: Zip files with the default Windows XP zip program

no, but you can use dir() for get all such directo...

2008-06-17T12:23:00.000+04:00

no, but you can use dir() for get all such directories and then run rmdir for each

Thank you Alex, can you use the asterisk with RmDi...

2008-06-17T12:20:00.000+04:00

Thank you Alex, can you use the asterisk with RmDir as well?
RmDir(Environ("Temp") & "\Temporary Directory*")

ok, i looked at htm file only. no idea why he remo...

2008-06-17T12:05:00.000+04:00

ok, i looked at htm file only. no idea why he removes these temp folders, perhaps they are created automatiacally during zip process. Anyway - i would better use RmDir instead of FSO

???Of course those lines are present in the origin...

2008-06-17T11:49:00.000+04:00

???
Of course those lines are present in the original code. Please check
http://www.rondebruin.nl/files/windowsxpunzip.txt

Hi Giorgio,i do not see such line in originale cod...

2008-06-17T11:44:00.000+04:00

Hi Giorgio,
i do not see such line in originale code, but if you create a temp dir - then it is good idea to delete it after all

Alex, in Sub Unzip2() above, why are the linesSet ...

2008-06-17T11:26:00.000+04:00

Alex, in Sub Unzip2() above, why are the lines
Set FSO = CreateObject("scripting.filesystemobject")
FSO.DeleteFolder Environ("Temp") & "\Temporary Directory*", True
used? Why do you need to delete the temporary folder?

Ciao Giorgio!strFilter = ahtAddFilterItem(strFilte...

2008-06-13T09:06:00.000+04:00

Ciao Giorgio!
strFilter = ahtAddFilterItem(strFilter...
see the function - it adds filters to a string strFilter in some format, you can call it several times to add more filters

.CopyHere - i think you can try to use FileCopy

Thanks for posting!

Found the solution, in the sub posted previously, ...

2008-06-13T01:45:00.000+04:00

Found the solution, in the sub posted previously, I use
Dim strInputFileName
instead of
Dim strInputFileName as String

Anyway, I've tried and modified Sub Unzip2() at h...

2008-06-12T12:58:00.000+04:00

Anyway, I've tried and modified Sub Unzip2() at http://www.rondebruin.nl/files/windowsxpunzip.txt using the API call
but the code stops at the line
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(strInputFileName).Items
with the message 'run-time error 91 "Object variable or with block variable not set'

Here's the modified sub:
Sub Unzip2() 'http://www.rondebruin.nl/files/windowsxpunzip.txt
Dim FSO As Object
Dim oApp As Object
Dim fname
Dim FileNameFolder
Dim DefPath As String

'fname = Application.GetOpenFileName(filefilter:="Zip Files (*.zip), *.zip", _
' MultiSelect:=False)
Dim strFilter As String
Dim strInputFileName As String

strFilter = ahtAddFilterItem(strFilter, "Zip Files (*.zip), *.zip") 'http://www.mvps.org/access/api/api0001.htm
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)
If strInputFileName = "" Then
'do nothing
Else
DefPath = "C:\Test\" '<<< Change path
If Right(DefPath, 1) <> "\" Then
DefPath = DefPath & "\"
End If

FileNameFolder = DefPath

Set oApp = CreateObject("Shell.Application")
'Copy the files in the newly created folder
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(strInputFileName).Items

MsgBox "You find the files here: " & FileNameFolder
On Error Resume Next
Set FSO = CreateObject("scripting.filesystemobject")
FSO.DeleteFolder Environ("Temp") & "\Temporary Directory*", True

Set oApp = Nothing
Set FSO = Nothing
End If
End Sub

Thank you Alex, I'm using the API described here: ...

2008-06-12T11:43:00.000+04:00

Thank you Alex, I'm using the API described here:
http://www.mvps.org/access/api/api0001.htm
but I don't understand this line:
strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLS")
strFilter is calling itself as an argument of the ahtAddFilterItem function?!

Ciao Giorgio!yes, GetOpneFileName and browse for f...

2008-06-12T09:43:00.000+04:00

Ciao Giorgio!
yes, GetOpneFileName and browse for folder does not work in access, so you have to replace them with API calls like at www.mvps.org/access

Ciao Alex!!! :-)Does this technique work with VBA ...

2008-06-11T22:28:00.000+04:00

Ciao Alex!!! :-)
Does this technique work with VBA in Access?
I've tried http://www.rondebruin.nl/files/windowsxpunzip.txt
but GetOpenFileName isn't recognized as a method or data member.