Üç şarta göre Klasör oluşturmak

[k0081]

Merhaba arkadaşlar;

Set ds001 = CreateObject("Scripting.FileSystemObject")
        A1 = ds001.FolderExists("Dnm1")
      If A1 = True Then
            'MsgBox ("Dnm1 Mevcut..."), vbOKOnly
        Else
        If Dir$("*.exe") = "" Then
'MsgBox " exe dosya yok..!", vbCritical
Else
ds001.CreateFolder ("Dnm1")
ds001.CreateFolder ("Dnm2")
ds001.CreateFolder ("Dnm3")
...
... diğer kodlar..

Aktif dizin içinde
1- şart = Dnm1 klasörü yok ise : Dnm1 ve diğer klasörleri oluştur.
2- şart = *.exe uzantılı dosya yok ise: Klasör oluşturma...

Normalde iki şarta bağlamayı yaptım...( Dnm1 klasörü yok ise.. *.exe uzantılı dosya yok ise..)


Fakat 3. şart şu şekilde;
Çalıştırdığım program o an Dnm1 klasörü içinde ise.. yani programın çalışıtığı dizin Aktif dizin Dnm1 ise.. Klasör oluşturmayacak.. 3. şart içinde *.exe kontrolü yapılmayacak..


yardımcı arkadaşa şimdiden teşekkürler..

 

[Korhan Ayhan]

Doğru kurguladığımdan emin değilim. Deneyiniz.

Sub Test()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Klasor_Kontrol = FSO.FolderExists("Dnm1")
    If Klasor_Kontrol = False Then
        If Dir$("*.exe") <> "" Then
            FSO.CreateFolder ("Dnm1")
            FSO.CreateFolder ("Dnm2")
            FSO.CreateFolder ("Dnm3")
        End If
    Else
        Yol = Application.Path
        If InStr(1, Yol, "Dnm1") = 0 Then
            FSO.CreateFolder ("Dnm1")
            FSO.CreateFolder ("Dnm2")
            FSO.CreateFolder ("Dnm3")
        End If
    End If
End Sub

 

[k0081]

Kodu denedim., Korhan hocam;
Dnm1 klasörü içinden çalıştırdım yine klasör oluşturdu.. oluşturmaması gerekiyor.

verdiğiniz kod örneğinden yola çıkarak tamamlamaya çalışacağım.. Teşekkür ediyorum.

*************************************************

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Klasor_Kontrol = FSO.FolderExists("Dnm1")
    If Klasor_Kontrol = [COLOR="Blue"]True[/COLOR] Then
        If Dir$("*.exe") <> "" Then
          [COLOR="Blue"]  'FSO.CreateFolder ("Dnm1")
            'FSO.CreateFolder ("Dnm2")
            'FSO.CreateFolder ("Dnm3")[/COLOR]
        End If
    Else
        Yol = [COLOR="Blue"]CurDir[/COLOR]
        If InStr(1, Yol, "Dnm1") = 0 Then
            FSO.CreateFolder ("Dnm1")
            FSO.CreateFolder ("Dnm2")
            FSO.CreateFolder ("Dnm3")
    End If
    End If

Hocam kodu bu şekilde düzeltince , istediğim oldu.. şimdilik bi sorun yok.. Tamamdır..

Teşekkürler..