Ftp.exe ile ftp ye gönderimde PDF dosyaların içeriği boşalıyor

[karadenizlim61]

Değerli Arkadaşlar, Umarım konu yerim doğrudur.
İlginç bir durum ile karşı karşıyayım. ftp.exe ile ftp ye PDF gönderiyorum. Fakat ftp ye kopyalanan *.PDF dosya içerikleri bom boş oluyor. FTP ye elle gönderdiğimde sorun olmuyor.
Yöntem olarak şunu yapıyorum: bir "FTPScript.txt" dosyası oluşturdum. Burada kaydedilem ftp yolları, kullanıcı ve şifreler var. Bunu Shell "C:\WINDOWS\system32\ftp.exe -s:C:\Pest\FTPScript.txt" de çalıştırıyorum. Sonuç PDF, ftp alanına gidiyor ama bozuk olarak. yani boş sayfa.
Sorunum Neden Gönderdiğim PDF ler bozuluyor? Sistem demi hata yapıyorum.
Excel Macro Kodum:

Sub FTP_Gönder()

'Start Code
Set FSO = CreateObject("scripting.filesystemobject")


Set t = Sheets("ServisFORMU")
'f = "C:\Pest\FTPScript.txt" 
    f = t.Range("AQ101").Value
Open f For Output As #1
Print #1, "open www.******.net" 
Print #1, ID; "****" 
Print #1, PW; "*****" 
Print #1, "cd " & "public_html" 
Print #1, "cd " & "dosya" 'Dizin Alt dosya yolu
Print #1, "cd " & "Anasayfa" 'Dizin Alt dosya yolu
Print #1, "ascii"
Print #1, "prompt"
Print #1, "mput " & VREDET; t.Range("AS95").Value '(as95=D:\dosyalarım\pestkontrol\SERVIS_RAPORU_2014.02.08.pdf)
Print #1, "disconnect" 
Print #1, "bye"
Print #1, "exit"
Close #1
If FSO.FolderExists("C:\Windows\System32") = False Then
    Shell "C:\WINNT\system32\ftp.exe -s:[COLOR=#800000][FONT=Consolas]C:\Pest\FTPScript.txt[/FONT][/COLOR]", vbHide
Else
    Shell "C:\WINDOWS\system32\ftp.exe -s:[COLOR=#800000][FONT=Consolas]C:\Pest\FTPScript.txt[/FONT][/COLOR]", vbHide
End If
End Sub