ServerZip opretter ikke .zip filen

Er det antallet af point, eller er der bare ingen der kender problemet ?

hvad med lidt kode?

Ja, det tænkte jeg også på at smide med, men det er et flere hundrede linier langt script. Jeg prøver lige at isolere ServerZip koden og vender tilbage...

For Index = 1 To UBound(mArr_FileNames)
ZipSourceFileList = ZipSourceFileList & Chr(34) & mArr_FileNames(Index) & Chr(34) & \"|\"
Next
       
ZipSourceFileList = Left(ZipSourceFileList,Len(ZipSourceFileList)-1)
ZipSourceFileList = Replace(ZipSourceFileList,\"\\\",\"/\") \'\"

FileName = FileName & \"Zip_\" & mStr_UserName & \"_\" & Date & \".zip\"
FileName = Replace(FileName,\" \",\"\")

Set ZipFileObj = Server.CreateObject(\"Stonebroom.ServerZip2\")
\'ZipFileObj.fileListRoot = \"D:/inetpub/wwwroot/msc/picturebank/\"
ZipFileObj.hideResponse = True
ZipFileObj.sourceFileList  = ZipSourceFileList
ZipFileObj.zipFileName = FileName
ZipFileObj.virtualTargetRoot = \".\"
blnWorked = ZipFileObj.doZip()
           
FullFileName = FullFileName & ZipFileObj.zipfileDownloadHref

FullFileName = Right(FullFileName,Len(FullFileName)-2)
mStr_ZipFileName = FullFileName

ZipFileObj.daysOldToDelete = 1
ZipFileObj.deleteOldFiles
Set ZipFileObj = Nothing
       
clsDownloadObj.SetDownloadFilesDone Session(\"UserID\")

Jeg har prøvet både med og uden linien

\'ZipFileObj.fileListRoot = \"D:/inetpub/wwwroot/msc/picturebank/\"

D.v.s. at jeg har prøvet både med

\'ZipFileObj.fileListRoot = \"D:/inetpub/wwwroot/msc/picturebank/\"

og

ZipFileObj.fileListRoot = \"D:/inetpub/wwwroot/msc/picturebank/\"

Efter 2 døgn uden svar, er jeg nødt til at hyre en konsulent i morgen tidlig. Jeg lukker derfor spørgsmålet.