Dizin veya Dosya Sorgulama

[jajiyiko]

Merhaba!

Acaba bir makro ile bir dizin veya dosyanın var olup olmadığı öğrenilebilirmi ?

Þimdiden teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu dizin aramak için deneyin.

[vb:1:a1ff9e4d25]Sub dizinara()
On Error GoTo son
dizin = InputBox("ARANACAK DİZİN ADINI YAZINIZ")
ara = "c:\" & dizin
ChDir ara
MsgBox "BU DİZİN MEVCUTTUR"
Exit Sub
son:
MsgBox "BU DİZİN MEVCUT DEÐİLDİR"
End Sub[/vb:1:a1ff9e4d25]

 

[bedersu]

Sayın leventm;
Sizin lafınızın üstüne laf etmek bize düşmez ama farklı bir çözüm de benden;

Sub dosya_ara()
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists("C:\testfile.txt")
If a = True Then
MsgBox "Bu isimde bir dosya var"
Else
MsgBox "Bu isimde bir dosya yok"

End If
End Sub

Sub klasör_ara()
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FolderExists("C:\SXSİ")
If a = True Then
MsgBox "Bu isimde bir klasör var"
Else
MsgBox "Bu isimde bir klasör yok"

End If
End Sub


Sub Sürücü_ara()
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.DriveExists("Ð:\")
If a = True Then
MsgBox "Bu isimde bir sürücü var"
Else
MsgBox "Bu isimde bir sürücü yok"

End If
End Sub

 

[Levent Menteşoğlu]

Sizin lafınızın üstüne laf etmek bize düşmez ama farklı bir çözüm de benden;

Sn bedersu

Bu tip sözlere hiç gerek yok,daha öncede defalarca belirttik,çözümlerinizi paylaşmaktan çekinmeyin,biz veya bir başka üye cevap verdi diye çözümünüzü sunmaktan asla vazgeçmeyin. Ne kadar farklı görüş çıkarsa o kadar çok bilginin paylaşılacağı çok açıktır. Bizlerinde, bu işi herkesten daha iyi biliyoruz diye asla bir iddiamız olmadı olamazda. Çözümleriniz bence çok iyi, bende farklı bir bakış açısını görmüş oldum.

Tüm üyelere bir kez daha sesleniyorum "lütfen cevaplarınızı yazmaktan çekinmeyin"

 

[bedersu]

:bravo:

 

[jajiyiko]

Hepinize ilginizden dolayı içtenlikle çok teşekkür ederim.
Problemim çözüldü.
Saygılar.

 

[ALPEN]

Sn Bedersu,

Dershanemiz için fso (File System Object) konusunda doyurucu bir makele istesek sizden?
(Doyurucu derken sizi sıkmak istemeyiz, yavas yavas 4-5 günde hazırlayacağınız, bu yararlı dosya sistemi kütüphanesi hakkında bir giriş, kullanılabileceği yerler, ve bir kaç örnek...)
Sonra size çok teşekkür etsek?

Süper olur süpeer...

 

[bedersu]

Sayın ALPEN,
Hazırlamaya çalışırım elimden geldiği,dilim döndüğünce ama inanın özellikle şu sıralar o kadar yoğunum ki

Eğer geç oldu demezseniz en yakın ve müsait olduğum zamanda hazırlarım.Yeter ki Excel ve forum sevdalıları faydalansın.Ama accik vakit verin