Herkese merhabalar..
Değişik bir yerde takıldım arkadaşlar yardımlarınızı bekliyorum:
Userformun activate yordamında ftp'den 10 adet dosya çeken bir batch dosyayı shell ile ekledim ve problemsiz çalışıyor.. Ancak son dosyanın geldiğini userform'a nasıl anlatacağımızı çözemedim.
[vb:1:57c328e880]
Sub dosyaya_bak()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists("c:\ftp\0245.xls")
If a = False Then
dosyaya_bak
Else
MsgBox "dosyalar geldi"
Basla
End If
End Sub
yada;
Sub dosyaya_bak()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists("c:\ftp\0245.xls")
do
loop until a=true
MsgBox "dosyalar geldi"
Basla
End Sub
[/vb:1:57c328e880]
bunlar sonuç vermedi. Eğer dosya zaten ilgili klasörde mevcutsa çalışıyor
ama ftp'den dosyalar ilk kez geliyorsa (c:\ftp klasörü boşsa) dosyanın geldiğini anlamıyor.
Şimdiden teşekkürler
Değişik bir yerde takıldım arkadaşlar yardımlarınızı bekliyorum:
Userformun activate yordamında ftp'den 10 adet dosya çeken bir batch dosyayı shell ile ekledim ve problemsiz çalışıyor.. Ancak son dosyanın geldiğini userform'a nasıl anlatacağımızı çözemedim.
[vb:1:57c328e880]
Sub dosyaya_bak()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists("c:\ftp\0245.xls")
If a = False Then
dosyaya_bak
Else
MsgBox "dosyalar geldi"
Basla
End If
End Sub
yada;
Sub dosyaya_bak()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists("c:\ftp\0245.xls")
do
loop until a=true
MsgBox "dosyalar geldi"
Basla
End Sub
[/vb:1:57c328e880]
bunlar sonuç vermedi. Eğer dosya zaten ilgili klasörde mevcutsa çalışıyor
ama ftp'den dosyalar ilk kez geliyorsa (c:\ftp klasörü boşsa) dosyanın geldiğini anlamıyor.
Şimdiden teşekkürler