Detailed report on harddisk Free Excel Macros (VBA) | Excel Programs

Warning: session_start() [function.session-start]: Cannot send session cookie - headers already sent by (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Warning: session_start() [function.session-start]: Cannot send session cache limiter - headers already sent (output started at /home/dbswav/public_html/excelwithkenan.com/goster_hazir_makrolar.php:61) in /home/dbswav/public_html/excelwithkenan.com/header.php on line 2

Excel Free Macros (VBA)

Detailed Report On Harddisk

Online Excel and Excel Macro (VBA) Courses

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Option Explicit
Sub Festplatten()
Const TEILER As Long = 1073741824
Dim objFSO As Object, objDrive As Object, colDrives As Object, varFree, intCount As Integer
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
intCount = 5
With LW
  .[b6:i100].ClearContents
  For Each objDrive In colDrives
      If objDrive.DriveType = 2 Then
          intCount = intCount + 1
          .Cells(intCount, 2) = objDrive.DriveLetter
          .Cells(intCount, 3) = objDrive.TotalSize
          .Cells(intCount, 4) = objDrive.TotalSize / TEILER
          .Cells(intCount, 5) = objDrive.FreeSpace
          .Cells(intCount, 6) = objDrive.FreeSpace / TEILER
          If objDrive.IsReady Then
            .Cells(intCount, 7) = "Bereit"
          Else
            .Cells(intCount, 7) = "Nicht bereit"
          End If
          .Cells(intCount, 8) = objDrive.SerialNumber
          .Cells(intCount, 9) = objDrive.VolumeName
      End If
  Next
End With
End
End Sub

Report problem with this macro

Report error

ALL MACROS

Youtube Channel
The following macros may be useful for you.

Similar Results
No	Macro Name
1	Detailed report on harddisk
2	excel operators hk
3	Detailed welcome closure
4	records detailed formatted cells on the records sheet / page
5	cells detailed information (address)
6	detailed active cell address
7	detailed address column no column name row no row name
8	The following are the codes that list the data on the report sheet / pages to the report sheet / page in the selected date range.
9	system report
10	Track and Report User Changes in an Excel worksheet or workbook
11	remove sheet / page protections
12	inserts months as sheet / pages Specifies days in detail
13	storing data as a report
14	reports that pivot table information is on update
15	reports that pivot table information is off update
16	drive type show 5
17	show driver ready
18	Show drive serial number
19	learning harddiskin free space etc ..
20	show file path list in detail fields of files file path etcâ € ¦

Excel Free Macros (VBA)

Detailed Report On Harddisk

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords