specify partition, list how many files you have Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
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

No	Macro Name
1	specify partition, list how many files you have
2	excel operators hk
3	save book you specify name - notifies you by message
4	a .bat file from a floppy disk
5	remove sheet / page protections
6	specifies in detail how many formulas are in the book (on new sheet / page)
7	specifies in detail how many references the book contains (on new sheet / page)
8	specify the number of copies to print from the printer
9	lists the named cells in detail on the wb_names sheet / page
10	type the date of the file and calculate how many days have passed
11	calculator on / off
12	Multiply All Values by Number: You have a list and you want to multiply the entire number by a specific number. Just use this code. Select this range of cells and run this code. first, it will ask you the number you want to reach more than one person, and then all their numbers will be multiplied instantly.
13	Double-click any cell in column b to specify how many rows to insert
14	Â Graphics Use these VBA codes to manage graphics in Excel and save a lot of time. & Nbsp; Change Chart Type: This code will help you convert the chart type without using the chart options on the tab. All you need to do is specify which type you want to convert. & Nbsp; The following code converts the selected chart to a clustered column chart. There are different codes for different types, where you can find all these types.
15	browse folder xls list
16	A shortcut to find out how many people are on the list.
17	a lot of dialog windows
18	show file path list in detail fields of files file path etcâ € ¦
19	counts how many formulas exist on the sheet / page
20	opening calculator

Excel Free Macros (VBA)

Specify Partition, List How Many Files You Have

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords