Hediye Excel Kitabı Ve Altın Üyelik Çekiliş Sonuçları İçin [Tıklayınız]
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
11/01/2017 14:21
Konu Sahibi
donepezil
Yorumlar
14
Okunma
897
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
10.214
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:03
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ü İki Sorgu Arasında Eşleşen Kayıtları Silme mehmetb84 2 88 11/01/2018, 12:19 mehmetb84
Çözüldü Kayıt Silme Hatası burhanb 6 304 08/09/2017, 14:01 burhanb
Çözüldü Terkrarlayan Kayıtları Silme ertans 4 383 22/04/2017, 19:56 atoz112
Çözüldü Klasör İçindeki Mdb Uzantılı Dosyaları Silme husem 2 268 13/03/2017, 10:16 husem
Çözüldü Listede seçili olanı silme mustim1547 2 307 13/01/2017, 10:45 mustim1547
 
 

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