dosya = Dir("ftp://kullanıcı_adı:şifre@site_adi.com.tr/httpdocs/DOSYALAR/Cari_Kartlar/Musteriler/")
Do While dosya <> ""
d = Split(dosya, ".")
dosya = WorksheetFunction.Substitute(dosya, "." & d(UBound(d)), "")
ListBox2.AddItem dosya
dosya = Dir
Loop
Malum yukarıda görünen olayda Listboxımda FTP ADRESİNDE BULUNAN DOSYALARIMI LİSTELEMEK İSTİYORUM NORMALDE ADRES KISMINA BİLGİSAYARIMDAN BİR KLASÖRÜ YAZDIĞIMDA LİSTELİYOR AMA İNTERNETTE OLAN DOSYALAR LİSTELENMEDİ HATA NEREDE OLABİLİR?
Do While dosya <> ""
d = Split(dosya, ".")
dosya = WorksheetFunction.Substitute(dosya, "." & d(UBound(d)), "")
ListBox2.AddItem dosya
dosya = Dir
Loop
Malum yukarıda görünen olayda Listboxımda FTP ADRESİNDE BULUNAN DOSYALARIMI LİSTELEMEK İSTİYORUM NORMALDE ADRES KISMINA BİLGİSAYARIMDAN BİR KLASÖRÜ YAZDIĞIMDA LİSTELİYOR AMA İNTERNETTE OLAN DOSYALAR LİSTELENMEDİ HATA NEREDE OLABİLİR?