Answer Posted / yogesh

option explicit
Dim objFSO: Set objFSO = CreateObject
("Scripting.FileSystemObject")
Dim colDrives:Set colDrives = objFSO.Drives
Dim objDrive,path,s
For Each objDrive in colDrives
path=objDrive.DriveLetter&":"
SearchPath(Path)


Next



Function SearchPath(Path) ' Defination of function
Dim BigFile,BigSize:BigSize=0
Dim objFSO: Set objFSO = CreateObject
("Scripting.FileSystemObject")
Dim objfolder:Set objfolder= objFSO.GetFolder(path &"\")
Dim ColSubFolders:Set ColSubFolders=objfolder.subfolders
Dim ObjSubFolder,objFile,colFiles
For each ObjSubFolder in ColSubFolders
Set colFiles=objfolder.files
For each objFile in colFiles
if(objFile.size>BigSize) then
BigSize=objFile.size
BigFile=objFile.name
end if
next
next
msgbox BigFile &BigSize
End Function

Why doesnt long int work?

1044

---

can anyone please tell about the nested interrupts?

2125

---

Explain about block scope in c?

1093

---

What is 1f in c?

2664

---

What is the most efficient way to count the number of bits which are set in an integer?

1063

---

Explain the concept and use of type void.

1118

---

How can I call fortran?

1047

---

What is 'bus error'?

1155

---

What is multidimensional arrays

1130

---

What is s in c?

1055

---

What are preprocessor directives in c?

1102

---

All technical questions

1992

---

Explain what are reserved words?

1107

---

Differentiate between #include<...> and #include '...'

1063

---

C language questions for civil engineering

1722

---