VBScript

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
451
Excel Vers. ve Dili
Windows 2011 TR
MS Office 365 TR - 64bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
bilgisayarımda C - D adlarında sürücüler var. Bu sürücüler de klasör1 adında klasör mevcut.
Aşağıdaki gibi
C:\Klasör
D:\Klasör
yapmak istediğim VBScript ile yapmak istediğim D:\Klasör varsa açsın yoksa C:\Klasör açsın. Yani öncelikle D sürücüsündeki klasörü açsın.
Sorumun bu site ile ilişkisi pek yok ama yinede yardım ederseniz sevinirim.
Teşekkürler
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,376
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Merhaba,

Kod:
Set fso = CreateObject("Scripting.FileSystemObject")
    
    If fso.FolderExists("d:\klasör") Then
        Call open_path("d:\klasör")
    Else
        Call open_path("c:\klasör")
    End If

    Set fso = Nothing

    Sub open_path(arg)
    Set ie = CreateObject("InternetExplorer.Application")
    
    ie.navigate arg
    
    ie.Visible = True
    
    Set ie = Nothing
    
    End Sub
 

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
451
Excel Vers. ve Dili
Windows 2011 TR
MS Office 365 TR - 64bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Sayın Zeki Gürsoy
Cevabınız Tam istediğim gibi
Çok teşekkür ederim.
 
Üst