Get the size of a Folder in KBytes

[Oostwijk]

I want to know if I can copy the files in filelistbox1 to the target defined in Dir2.path, how can I measure if the target drive has enough hard disk space to store those files ?

 

[LPlates]

Oostwijk I see that you have not voted ANY of your replies as helpfull. To get the most from this site, Please read FAQ222-2244 (Item 15).

Free Space on selected drive..

Option Explicit

'API Declarations
Private Declare Function GetDiskFreeSpace Lib "kernel32.dll" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long

'Call this function to get the Amount of Free Disk Space (in Bytes)
'Pass to this function only the letter of the drive
Function FreeDiskSpace(DriveLetter As String)
Dim SectorsPerCluster As Long
Dim BytesPerSector As Long
Dim FreeClusters As Long
Dim NumberOfClusters As Long
Dim ret As Long

ret = GetDiskFreeSpace(DriveLetter & ":\", SectorsPerCluster, BytesPerSector, FreeClusters, NumberOfClusters)
FreeDiskSpace = BytesPerSector * SectorsPerCluster * FreeClusters
End Function

Private Sub Command1_Click()
MsgBox FreeDiskSpace("C&quot \ 1024 & " Kb Free Space in Drive C"
End Sub

Good luck!

 

[LPlates]

This is one way to copy files from one dir to another..

Public Function CopyDir(Source As String, Dest As String, OverWrite As Boolean)
'This function uses the Windows Scripting Host
'You must have the scripting engine installed to use this code.
Dim fso
'Create file system object
Set fso = CreateObject("Scripting.FileSystemObject&quot
'put windows scripting host to work
fso.CopyFolder Source, Dest, OverWrite
End

 

[Oostwijk]

'Oostwijk I see that you have not voted ANY of your replies as helpfull. To get the most from this site, Please read FAQ222-2244 (Item 15).'

I'm sorry Lplates, I wasn't aware of that.

Is it also possible to calculate the total of files in filelistbox1 in kb ?

 

[Oostwijk]

anyone ?

 

[johnwm]

You could loop through the DirListBox, calling the GetFileSize API for each, and keeping a running total.

Details of GetFileSize here:

http://www.mentalis.org/apilist/GetFileSize.shtml

which includes a link to a VB example

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[Swi]

You can use the API as LPlates and johnwm suggested or use FileSystemObject.

' Add a reference to Microsoft Scripting Runtime

Dim fso As New FileSystemObject
Dim drv As Drive
Dim fld As Folder
Dim TotalFreeSpace As String

Private Sub Command1_Click()
Set drv = fso.Drives("S:\&quot
TotalFreeSpace = FormatNumber(drv.TotalSize / 1024, 0) & " KB"
MsgBox TotalFreeSpace

Set fld = fso.GetFolder("S:\17916sd\&quot
TotalFreeSpace = FormatNumber(fld.Size / 1024, 0) & " KB"
MsgBox TotalFreeSpace
End Sub

Swi

 

[vb5prgrmr]

So what happened to the use of FileLen(PathToFile)???

Good Luck

 

[Swi]

FileLen or LOF (When the file is opened) gives an error on files over 2 gig in size.

Swi