مشکل در ذخیره فایل

[sinam443 108]

با سلام خدمت اساتید من یه چنتا پی دی اف دارم که اونارو دان میکنم اما هنگام ذخیره نمیدونم چرا وقتی ذخیره میشه جایگزین فایل قبلی میشه و علاوه بر اون حجم فایل هم از بین نمیره (حجم فایل قبلی +حجم فایل جدید)

اینم کدامه ببینید کجاش عیب داره.

Sub Jobdone (job As HttpJob)
	ProgressDialogHide
		If job.Success = True Then
		If job.JobName="h1" Then
		Dim i1 As InputStream
		Dim o1 As OutputStream
		i1=job.GetInputStream
		o1=File.OpenOutput(File.DirRootExternal,"فصل 1.pdf",True)
		File.Copy2(i1,o1)
		i1.Close
		o1.Close
		ToastMessageShow("فصل 1 با موفقیت دانلود شد",False)
	
		Else	If job.JobName="h2" Then
		Dim i1 As InputStream
		Dim o1 As OutputStream
		i1=job.GetInputStream
		o1=File.OpenOutput(File.DirRootExternal,"فصل 2.pdf",True)
		File.Copy2(i1,o1)
		i1.Close
		o1.Close
		ToastMessageShow("فصل 2 با موفقیت دانلود شد",False)
	
	
		Else	If job.JobName="h3" Then
		Dim i1 As InputStream
		Dim o1 As OutputStream
		i1=job.GetInputStream
		o1=File.OpenOutput(File.DirRootExternal,"فصل 3.pdf",True)
		File.Copy2(i1,o1)
		i1.Close
		o1.Close
		ToastMessageShow("فصل 3 با موفقیت دانلود شد",False)
		
		Else	If job.JobName="h4" Then
		Dim i1 As InputStream
		Dim o1 As OutputStream
		i1=job.GetInputStream
		o1=File.OpenOutput(File.DirRootExternal,"فصل 4.pdf",True)
		File.Copy2(i1,o1)
		i1.Close
		o1.Close
		ToastMessageShow("فصل 4 با موفقیت دانلود شد",False)
		
		Else	If job.JobName="h5" Then
		Dim i1 As InputStream
		Dim o1 As OutputStream
		i1=job.GetInputStream
		o1=File.OpenOutput(File.DirRootExternal,"فصل 5.pdf",True)
		File.Copy2(i1,o1)
		i1.Close
		o1.Close
		ToastMessageShow("فصل 5 با موفقیت دانلود شد",False)
		
		Else If job.JobName="h6" Then
		Dim i1 As InputStream
		Dim o1 As OutputStream
		i1=job.GetInputStream
		o1=File.OpenOutput(File.DirRootExternal,"فصل 6.pdf",True)
		File.Copy2(i1,o1)
		i1.Close
		o1.Close
		ToastMessageShow("فصل 6 با موفقیت دانلود شد",False)
		
		Else	If job.JobName="h7" Then
		Dim i1 As InputStream
		Dim o1 As OutputStream
		i1=job.GetInputStream
		o1=File.OpenOutput(File.DirRootExternal,"فصل 7.pdf",True)
		File.Copy2(i1,o1)
		i1.Close
		o1.Close
		ToastMessageShow("فصل 7 با موفقیت دانلود شد",False)
		End If
		If job.Success=False Then
		ToastMessageShow("خطا در برقراری ارتباط",False)
		End If
		End If
End Sub

 

[sinam443 108]

کسی میتونه راهنمایی کنه؟؟؟