DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Test2()
Dim ObjFolder As Object
Dim ExDir As String
ExDir = CurDir
Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder _
(0, "Klasor secin...", &H100, 0&)
On Error GoTo ErrMsg:
If Not TypeName(ObjFolder) = "Nothing" Then
ObjPath = ObjFolder.Items.Item.Path
If Left(ObjPath, 1) = ":" Then GoTo ErrMsg:
End If
ChDir ObjPath
Shell "Cmd /C" & "Attrib -H *.*", vbHide
Set ObjFolder = Nothing
ChDir ExDir
Exit Sub
ErrMsg:
Err.Clear
MsgBox "Lutfen gecerli bir klasor secin....", vbCritical, "Kullanicinin dikkatine !"
End Sub
Sub Test3()
Dim ObjFolder As Object
Dim ExDir As String
ExDir = CurDir
Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder _
(0, "Klasor secin...", &H100, 0&)
On Error GoTo ErrMsg:
If Not TypeName(ObjFolder) = "Nothing" Then
ObjPath = ObjFolder.Items.Item.Path
If Left(ObjPath, 1) = ":" Then GoTo ErrMsg:
End If
ChDir ObjPath
Shell "Cmd /C" & "Attrib -H /S /D", vbHide
Set ObjFolder = Nothing
ChDir ExDir
Exit Sub
ErrMsg:
Err.Clear
MsgBox "Lutfen gecerli bir klasor secin....", vbCritical, "Kullanicinin dikkatine !"
End Sub
"Değiştirmek" derken neyi kastediyorsunuz ?mnz' Alıntı:klasör veya klasör içeriği seçim ekranını (gözat) değiştirebilirmiyiz?
Ne kadar açıklayıcı soru soruyorsunuz .... bravo yani.mnz' Alıntı:browseforfolder