Will check - Russell Peters ----- Original Message ----- From: "Eric Engler" <englere@xxxxxxxxxxx> To: <delphizip@xxxxxxxxxxxxx> Sent: Friday, May 09, 2003 11:49 AM Subject: [delphizip] Fwd: Small bug in WriteSpan of Zipmaster v1.72 > > I received this email today: > > >From: Mark Kuin <mjk@xxxxxxxxxx> > > > >Hello Mr Engler, > > > >I noticed a small bug in the WriteSpan method. It occurs when you write a > >WriteSpan to Floppy, not to harddisk: > > > >When writing to floppy, the last file is called x.zip )instead of x.z01 or > >x.z02) , but later on, that file is renamed to x.zip.tmpxxx. After that, it > >is tried to rename x.zip to x.zip, which does not work of course. > > > >Solution: > >// in CreateMVFileName > >If (spCompatName In FSpanOptions) Then > > Begin > > ext := '.z' + copy(IntToStr(101 + FDiskNr), 2, 2) > > FileName := ChangeFileExt(FileName, ext); > > END > > > >Or, change the renaming code after: > >If (FDriveFixed Or (spNoVolumeName In SpanOptions)) And (spCompatName In > >SpanOptions) Then > > > > > > > >When writing to harddisk, this error does not occur, because FtotalDisks > >keeps the value of -1. > > > >Greetings, Mark Kuin > > > >ZIPMASTERVERSION: String = '1.72'; > >ZIPMASTERBUILD: String = '1.72.1.2'; > >ZIPMASTERVER: integer = 172; // 1.72.0.4 > > ----------- > To unsubscribe from this list, send an empty e-mail > message to: > delphizip-request@xxxxxxxxxxxxx > and put the word unsubscribe in the subject. > ----------- To unsubscribe from this list, send an empty e-mail message to: delphizip-request@xxxxxxxxxxxxx and put the word unsubscribe in the subject.