Pdf dosya varmı kontrolü

[k0081]

Merhaba arkadaşlar;

bir kontrol yaptırmak istiyorum Aktif dizinde ; bir yada daha fazla pdf uzantılı dosya varmı-yokmu kontrolünü nasıl yaptırabilirim?

Sub pdf_varmi()
Dim ds, a, b1
Set ds = CreateObject("Scripting.FileSystemObject")
b1 = CurDir
a = ds.FileExists(CurDir & "\" & ".pdf")
If a = True Then

Else
MsgBox b1 & " dizininde PDF bulunamadı..!", vbCritical
End
End If
End Sub

 

[PLİNT]

Merhaba
Sayarak olabilir

Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(CurDir)
Set dc = f.Files
For Each dosya In dc
If ds.GetExtensionName(dosya.Name) = "pdf" Then
adt = adt + 1
 End If
  Next
MsgBox adt

 

[k0081]

Hocam cevap için teşekkür ediyorum.

Siteye yazdıktan sonra şu şekilde düzenledim;

Sub pdf_varmi()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
uznt = "pdf"
uznt1 = "*." & uznt & ""
If Dir$(uznt1) = "" Then
MsgBox uznt1 & (" uzantılı dosya yok..!"), vbCritical
Else
MsgBox "pdf dosya var"
End If
End
End Sub

+ olarak bir şey daha sormak istiyorum. *.LNK uzantılı dosyaları kod ile nasıl çalıştırabilirim..?

 

[Korhan Ayhan]

Shell komutunu araştırın.

 

[k0081]

Hocam pdf kontrolü tamamdır. Yalnız başka bir konu var veri tabanı ile alakalı bir programı çalıştırmak istiyorum . Command ile. Bunu cmd.exe kullanarak yaptım. Amacım cmd aradan kaldırarak nasıl çalıştırabilirim. Shell'de program çalışıyor. Ama veritabanı dosyasını arıyor. Bulamadığı için hata veriyor. Command masaüstünden çalışıyor diyelim...; veri tabanı g:\ppp klasöründe gibi.. biraz karışık oldu sanırım

 

[Korhan Ayhan]

Linkteki 6 nolu mesajdaki kodu deneyin.

http://www.vbforums.com/showthread....ile-shortcut&p=3867556&viewfull=1#post3867556

 

[k0081]

Linkteki 6 nolu mesajdaki kodu deneyin.

http://www.vbforums.com/showthread....ile-shortcut&p=3867556&viewfull=1#post3867556

Kodu uyarladım . çalışıyor. ama yine veri tabanı dosyasını bulamıyor..

Teşekkürler.. Araştırıyorum..

**********************************************
Korhan hocam; Tamamdır. Yaptım. vermiş olduğunuz 6. nolu linkin üstündeki yeşil renkteki kodları ekleyince çözüldü.. ilginiz için çok Teşekkür ediyorum, Saygılar.

[COLOR="SeaGreen"]'ChDrive "c:\" '<-- Optional
'ChDir "C:\Your path\" '<-- Optiona[/COLOR]l