Gizli Klasör Oluştur

[meslek5]

Merhaba, aşağıdaki kodlarla klasör oluştururken bunu klasörü gizleyerek yapabilir miyim? yani klasör gizli şekilde oluşturulacak. bu mümkün müdür?
Yardımcı olacak hocalarıma şimdiden teşekkür ederim.

Set nesne = CreateObject("Scripting.FileSystemObject")
yol = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
klasor = "ÖRNEK"
klasorara = nesne.FolderExists(yol & "\" & klasor)
If klasorara = False Then nesne.CreateFolder yol & "\" & klasor

 

[muygun]

Merhaba;

Kodları boş bir modüle ekleyerek deneyin.

Sub klasöroluştur()
Application.ScreenUpdating = False
On Error Resume Next
Set nesne = CreateObject("Scripting.FileSystemObject")
yol = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
klasor = "ÖRNEK"
klasorara = nesne.FolderExists(yol & "\" & klasor)
If klasorara = False Then nesne.CreateFolder yol & "\" & klasor
Call gizle
Application.ScreenUpdating = True
End Sub

Sub gizle()
Application.ScreenUpdating = False
On Error Resume Next
yoll = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
SetAttr yoll & "\ÖRNEK", vbHidden + vbSystem
MsgBox "klasör oluşturuldu ve gizlendi"
Application.ScreenUpdating = True
End Sub

Sub göster()
Application.ScreenUpdating = False
On Error Resume Next
yoll = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
SetAttr yoll & "\ÖRNEK", vbNormal + vbSystem
MsgBox "klasör görünür halde"
Application.ScreenUpdating = True
End Sub

İyi çalışmalar.

 

[meslek5]

Merhaba;

Kodları boş bir modüle ekleyerek deneyin.

Sub klasöroluştur()
Application.ScreenUpdating = False
On Error Resume Next
Set nesne = CreateObject("Scripting.FileSystemObject")
yol = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
klasor = "ÖRNEK"
klasorara = nesne.FolderExists(yol & "\" & klasor)
If klasorara = False Then nesne.CreateFolder yol & "\" & klasor
Call gizle
Application.ScreenUpdating = True
End Sub

Sub gizle()
Application.ScreenUpdating = False
On Error Resume Next
yoll = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
SetAttr yoll & "\ÖRNEK", vbHidden + vbSystem
MsgBox "klasör oluşturuldu ve gizlendi"
Application.ScreenUpdating = True
End Sub

Sub göster()
Application.ScreenUpdating = False
On Error Resume Next
yoll = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
SetAttr yoll & "\ÖRNEK", vbNormal + vbSystem
MsgBox "klasör görünür halde"
Application.ScreenUpdating = True
End Sub

İyi çalışmalar.

muygun hocam ilgilendiğiniz için çok teşekkür ederim.
verdiğiniz kodlar sorunsuz çalıştı. Fakat aynı işlemi C sürüsündeki ÖRNEK adlı klasör için yapmayı denedim olmadı.

Sub gizle()
Application.ScreenUpdating = False
'On Error Resume Next
yol = "C:\ÖRNEK"
SetAttr yol & "\ÖRNEK", vbHidden + vbSystem
MsgBox "klasör gizlendi"
Application.ScreenUpdating = True
End Sub

 

[muygun]

Merhaba;
Birde aşağıdaki şekilde deneyin. (Win7 32 bit de sorunsuz çalışıyor)

Sub klasör_oluştur()
yer = "C:\"
klasöradı = "dene"
hepsi = yer & klasöradı
If CreateObject("Scripting.FileSystemObject").FolderExists(hepsi) = False And hepsi <> "" Then MkDir hepsi
Call gizle
End Sub

Sub gizle()
SetAttr "c:\dene\", vbHidden + vbSystem
End Sub

Sub göster()
SetAttr "c:\dene\", vbNormal + vbSystem
End Sub

İyi çalışmalar.