Elinde açık kaynak kodlu, upload-download gibi özellikleri olan basit bir FTP Clienti var, sen bu kaynağı kullanarak "c:/a. txt" dosyasını Ftp servera atamıyorsan üzgünüm ama 1 sene az aramışsın... İyi forumlamalar...

Kişisel istek yapmışsın fakat pitbull hoşuma gitti diye yardımcı oluyorum Bu senin işini fazlasıyla görür heralde...

Arkadaşlar Xright denen şahış bnm şifremi bildiği için bnm adıma sorular sormuş... çünkü kendisi bu oalyı daha bilmiyo şifremi deiştirdim... Böle bi lamerlik yapacağını hiç düşünmemiştim... -

Inet ile Ftp'ye Dosya Göndermek Inet kontrolü ile ftp adresine dosya göndermek kullanıcı adı ali olsun şifre 123456 olsun adresin ise şöyle oluyor şimdi inet kodu şu With Inet1. Protocol=icFTP. URL = "ftp://sitem.com" . UserName = "ali" . Password = "123456" End With Inet1. Execute Inet1. URL, "Put resim. jpg /resim. jpg" inet in bir özelliği var URL, UsrName ve Password değerlerini girdiğinizde bunu ftp kullanılacak biçime dönüştürüyor. oyüzden önce bilgileri girip sonra URL özelliği ile tekrar alıyoruz

way way way düşncelerim doğruymuş bende yneiyim ii oldu vb için kusura bakma arkadaşım topice msj yazdım ama çoğu kişiyi görünce

Konuyu daha yeni gördüm wala :S ama hemen ufak bi proje hazırladım gerçi sen txt upload etcen ama ben resim diye yaptım :S sonradan fark ettim neyse farklı bi yanı yok aynı şey şimdi yukarıdaki görünüşe göre anlatacam şimdi ilk önce ftp ile bağlantı kurmamız lazım Kod: Private Sub Command1_Click On Local Error GoTo hata Label4. Caption = "Bağlanıyor..." Inet1. Protocol = icFTP Inet1. URL = Text1. Text If Text2. Text = "" Then Inet1. UserName = "anonymous" Else Inet1. UserName = Text2. Text End If Inet1. Cancel Inet1. Password = Text3. Text Inet1. RequestTimeout = 40 Inet1. Execute, "DIR" Do While Inet1. StillExecuting DoEvents: DoEvents: DoEvents Loop Label4. Caption = "Bağlantı Kuruldu!" Exit Sub hata: Inet1. Cancel Label4. Caption = "Bağlantı Kurulamadı!" End Sub server adresi kullanıcı adı şifreyi felan aldık bağlantı kurduk hata olursa yannış bişey yazmışızdır. bağlantı kurulamadı die yazdırıoz felan işte sonra dosyayı upload etme koduna geldik ama kodu bi programdan almıştım biraz kendime göre editledim ama bi fonksiyon war onu neden kullanmış anlamadım başka bi dosyanın upload edilip dilmediğini anlamak için olaiblir her neyse Kod: Private Sub Command4_Click If ITCReady = True Then If Trim(Text4. Text) = "" Then MsgBox "Upload Edilecek Dosyayı Seçmedin!", 16, "Hata!" Exit Sub End If Inet1. Execute, "PUT " & Chr(34) & Text4. Text & Chr(34) & " " & Chr(34) & "UploadEdilen. jpg" & Chr(34) Do Until ITCReady DoEvents: DoEvents: DoEvents: DoEvents Loop Inet1. Execute, "DIR" Label6. Caption = "Dosya Upload Edildi!" End If End Sub Private Function ITCReady If Inet1. StillExecuting Then ITCReady = False If ShowMessage Then MsgBox "Please wait. FTP is still executing", vbInformation + vbOKOnly, "Busy" End If Else ITCReady = True End If End Function Inet1. Execute, "PUT " & Chr(34) & Text4. Text & Chr(34) & " " & Chr(34) & "UploadEdilen. jpg" & Chr(34) "UploadEdilen. jpg" ise dosya hangi isimle kaydedilecek o kısım eğer aynı dosyadan warsa üzerine kaydeder sölim o yuzden değişken bişey koyun burdaki text4 sizin dosyanızın yeri ok. gözat command3 gözat butonu Kod: Private Sub Command3_Click CommonDialog1. Filter = "Tüm Resim Dosyaları | . BMP; . GİF; . JPG; . TİF; . PNG" CommonDialog1. ShowOpen Text4. Text = CommonDialog1. FileName End Sub bununla dosyayı seçeceksiniz CommonDialog1. Filter = "Tüm Resim Dosyaları | . BMP; . GİF; . JPG; . TİF; . PNG" sadece resim dosyaları oluyo sen txt yapacaksan CommonDialog1. Filter = "TXT Dosyalar | . TXT" diyeceksin ok. Proje nin bitmiş hali aşağıdaki gibi İndirmek için resme tıkla! - Kratos-