partisyon belirt ne kadar dosya varsa listelesin Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Option Explicit

Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Const MAX_PATH = 260
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private nCount&
'Main code =================
Private Sub GetDirectoryListing(ByVal Root$)
' Function to calculate bytes used in Root$ and all subdirectories of Root$.
' Root$ should be entered in the form c:Dir

Dim FData As WIN32_FIND_DATA
Dim fHand&
Dim sPath$
Dim StillOK&
Dim ByteTotal&
Dim nPos%
Dim DirName$, FileName$

sPath$ = Root$ + "*.*"

fHand& = FindFirstFile(sPath$, FData)

If fHand&  "." And DirName$  ".." Then
GetDirectoryListing Root$ + "" + DirName$
End If
Else
nCount& = nCount& + 1
nPos% = InStr(FData.cFileName, Chr$(0))
FileName$ = Left$(FData.cFileName, nPos% - 1)
Cells(nCount&, 1).Value = Root$ + "" + FileName$ _
'>>>>>>>>>>>>>>>>>>>>
'& gt;>
' If you don't want the path just use:
' Cells(nCount&,1).value = FileName$
End If

StillOK& = FindNextFile(fHand&, FData)
Loop Until StillOK = 0
fHand& = FindClose(fHand&)
End Sub

Public Sub GetFileList()
Dim Path$
nCount& = 0
Path$ = InputBox("Enter the root for the file listing (e.g. 'c:dir' orc:")
If Len(Path$) = 0 Then Exit Sub
GetDirectoryListing Path$
End Sub

Benzer Sonuçlar
No	Makro Adı
1	partisyon belirt ne kadar dosya varsa listelesin
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	kitapta ne kadar refers varsa ayrıntılı olarak belirtir (yeni sayfada)
4	kitapta ne kadar formül varsa ayrıntılı olarak belirtir (yeni sayfada)
5	listbox ve combobox'a veri girmek
6	dosya klasör ekle
7	şifrelemede son nokta
8	dosya dizinde mi bakar, varsa açar yoksa mesaj verir
9	hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
10	dosya yolu ve uzantısını belirle ayrıntılı listelesin
11	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
12	gizli sayfada makro çalışır mı
13	kapali durumdaki c: est.xls dosyası açılacak ve içine c:userform1.frm ilave edildikten sonra kaydedilerek kapatilacaktir
14	dosya yolunu göster ayrıntılı olarak listelesin dosyaların kapladıkları alanları, dosya yolunu vs…
15	geri çalişan timer
16	worde veri aktarma
17	klasör ve dosya makrolarındaki yolları kendine göre düzenle
18	hepsi bir arada toplama çarpma bölme
19	b1 hücresine klasör yolunu yaz xls dosyalarını listelesin
20	sheetleri bir sheette toplamak

Benzer Sonuçlar

Makro Adı

partisyon belirt ne kadar dosya varsa listelesin

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

kitapta ne kadar refers varsa ayrıntılı olarak belirtir (yeni sayfada)

kitapta ne kadar formül varsa ayrıntılı olarak belirtir (yeni sayfada)

listbox ve combobox'a veri girmek

dosya klasör ekle

şifrelemede son nokta

dosya dizinde mi bakar, varsa açar yoksa mesaj verir

hücrede bir sonraki ayın gün sayısı kadar gün ilave etme

dosya yolu ve uzantısını belirle ayrıntılı listelesin