• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

VBScript

Katılım
11 Kasım 2005
Mesajlar
454
Excel Vers. ve Dili
Windows 2011 TR
MS Office 365 TR - 64bit

VBA, Selenium ve VBS
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
 
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
 
Sayın Zeki Gürsoy
Cevabınız Tam istediğim gibi
Çok teşekkür ederim.
 
Geri
Üst