Put the unpackfold = line before the On error lineOn Error GoTo line1 UnpackFold = UnzipFold(StrFilename)
Put the unpackfold = line before the On error lineOn Error GoTo line1 UnpackFold = UnzipFold(StrFilename)
Please take the time to read the Forum FAQ