ThisWorkbook.Path Klasör Yoluna Kısmen Benzeme Kontrolü

[baydeniro]

Merhaba Arkadaşlar,
Klasör yolunun kontrol edilmesini nasıl sağlayabiliriz ?
Açılan dosya "C:\Users\TEN\" klasör yoluna bağlı bir dosya ise işlem devam etsin.
Aşağıdaki gibi bir kod yazdım ama tabii ki çalışmadı !

Code:
Sub KlasorAcma()
If ThisWorkbook.Path = "C:\Users\TEN\" & "*" Then
GoTo 10
Else
ActiveWorkbook.Close
10
Range("C10").Select
End If
End Sub

 

[Korhan Ayhan]

LEFT komutu ile yapabilirsiniz.

If Left(ThisWorkbook.Path, Len("C:\Users\TEN\")) = "C:\Users\TEN\" Then

Ya da INSTR komutunu kullanabilirsiniz;

If InStr(1, ThisWorkbook.Path, "C:\Users\TEN\") > 0 Then

 

[baydeniro]

LEFT komutu ile yapabilirsiniz.

If Left(ThisWorkbook.Path, Len("C:\Users\TEN\")) = "C:\Users\TEN\" Then

Ya da INSTR komutunu kullanabilirsiniz;

If InStr(1, ThisWorkbook.Path, "C:\Users\TEN\") > 0 Then

Üstad çok teşekkür ederim. 1.kod harika çalıştı.
Herşey normal gözüküyor olmasına rağmen 2. kod VBA ekranında kırmızı oldu nedense

If InStr(1, ThisWorkbook.Path, "C:\Users\TEN\") > 0 Then

 

[Korhan Ayhan]

Şöyle deneyiniz.

If InStr(1, ThisWorkbook.Path, "C:\Users\TEN\", vbTextCompare) > 0 Then

 

[baydeniro]

Şöyle deneyiniz.

If InStr(1, ThisWorkbook.Path, "C:\Users\TEN\", vbTextCompare) > 0 Then

Çok teşekkürler Üstadım, bu kod mükemmel çalıştı. Sağlıcakla kalın