Klasör varsa uyarı verir yoksa olusturur

If Dir(KlasorAdresi, vbDirectory)="" Then

MkDir KlasorAdresi

Else

Msgbox "zaten var"

End if

yada

If Len(Dir(KlasorAdresi, vbDirectory)) = 0 Then 

MkDir KlasorAdresi

Else

Msgbox "Zaten var" 

End If