Konu Araçları | Seçenekler: | Gösterim Stili

Boş Klasör / Alt Klasör Silme

Tarih
11/01/2017 14:21
Konu Sahibi
donepezil
Yorumlar
14
Okunma
622
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.737
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,11:33
Merhaba,

Formda resim sildirdiğiniz butonun tıklandığında olayındaki


Kod:
Me.Requery



kodunun üzerine


Kod:
DeleteEmptyFolders (CurrentProject.Path)



kodu ekle,



Kod:
Option Compare Database
Option Explicit



kodunun hemen altına




Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Sub DeleteEmptyFolders(ByVal strFolderPath As String)
   Dim fsoSubFolders As Folders
   Dim fsoFolder As Folder
   Dim fsoSubFolder As Folder
   Dim m_fsoObject
   Dim strPaths()
   Dim lngFolder As Long
   Dim lngSubFolder As Long
      
   DoEvents
   
   Set m_fsoObject = New FileSystemObject
   If Not m_fsoObject.FolderExists(strFolderPath) Then Exit Sub
   
   Set fsoFolder = m_fsoObject.GetFolder(strFolderPath)
   
   On Error Resume Next
   
   'Has sub-folders
   If fsoFolder.SubFolders.Count > 0 Then
        lngFolder = 1
        ReDim strPaths(1 To fsoFolder.SubFolders.Count)
        'Get each sub-folders path and add to an array
        For Each fsoSubFolder In fsoFolder.SubFolders
            strPaths(lngFolder) = fsoSubFolder.Path
            lngFolder = lngFolder + 1
        Next fsoSubFolder
        
        lngSubFolder = 1
        'Recursively call the function for each sub-folder
        Do While lngSubFolder < lngFolder
           Call DeleteEmptyFolders(strPaths(lngSubFolder))
           lngSubFolder = lngSubFolder + 1
        Loop
    End If
   
    'No sub-folders or files
    If fsoFolder.Files.Count = 0 And fsoFolder.SubFolders.Count = 0 Then
        fsoFolder.Delete
    End If
End Sub



kodu ekle,


Son olarak referanslara

"Microsoft Scripting Runtime"


isimli referansı ekle.

resim sildiğinde boş klasörleri siler.

Cevapla


Bu Konudaki Yorumlar
Boş Klasör / Alt Klasör Silme - Yazar: donepezil - 11/01/2017, 14:21
RE: Boş Klasör / Alt Klasör Silme - Yazar: atoz112 - 11/01/2017, 14:42
RE: Boş Klasör / Alt Klasör Silme - Yazar: atoz112 - 11/01/2017, 14:55
RE: Boş Klasör / Alt Klasör Silme - Yazar: donepezil - 11/01/2017, 15:58
Cvp: Boş Klasör / Alt Klasör Silme - Yazar: alpeki99 - 11/01/2017, 16:09
RE: Boş Klasör / Alt Klasör Silme - Yazar: donepezil - 11/01/2017, 16:31
Cvp: Boş Klasör / Alt Klasör Silme - Yazar: alpeki99 - 11/01/2017, 16:36
RE: Boş Klasör / Alt Klasör Silme - Yazar: donepezil - 11/01/2017, 16:45
Cvp: Boş Klasör / Alt Klasör Silme - Yazar: alpeki99 - 11/01/2017, 16:49
RE: Boş Klasör / Alt Klasör Silme - Yazar: ozanakkaya - 11/01/2017, 18:53
RE: Boş Klasör / Alt Klasör Silme - Yazar: donepezil - 11/01/2017, 22:57
RE: Boş Klasör / Alt Klasör Silme - Yazar: donepezil - 12/01/2017, 09:16

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Terkrarlayan Kayıtları Silme ertans 4 207 22/04/2017, 19:56 atoz112
Çözüldü Klasör İçindeki Mdb Uzantılı Dosyaları Silme husem 2 138 13/03/2017, 10:16 husem
Çözüldü Listede seçili olanı silme mustim1547 2 205 13/01/2017, 10:45 mustim1547
Çözüldü Liste kutusundan seçili olanı tablodan silme... direnist 11 3.769 13/01/2017, 08:07 mustim1547
Çözüldü satırdaki isimlerde otomatik klasör açma manyetix 19 4.478 05/01/2017, 00:20 donepezil

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.