Try this :
To get the list of file in selected folder :
Option Compare Text
Sub GetFileListFromFolder()
Dim strFolderPath As String
Dim objFso As Object
Dim objFolder As Object
Dim objFile As Object
Dim lngICounter As Integer
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
strFolderPath = .SelectedItems(1)
End With
If strFolderPath = "" Then
MsgBox "Cancelled by User", vbCritical
Exit Sub
End If
Set objFso = CreateObject("Scripting.FileSystemobject")
Set objFolder = objFso.getFolder(strFolderPath)
lngICounter = 2
For Each objFile In objFolder.Files
Cells(lngICounter, 1).Value = objFile.Path
lngICounter = lngICounter + 1
Next
MsgBox "Total File Found : " & lngICounter - 1, vbInformation
strFolderPath = Empty
Set objFso = Nothing
Set objFolder = Nothing
Set objFile = Nothing
lngICounter = Empty
End Sub
To Delete the selected files :
Sub DeleteFiles()
Dim objFso As Object
Dim rngCell As Range
Dim rngRange As Range
Dim objFile As Object
Set objFso = CreateObject("Scripting.FileSystemobject")
Set rngRange = Sheet1.Range("B1:B" & Sheet1.UsedRange.Rows.Count)
For Each rngCell In rngRange
If rngCell.Value = "Yes" Then
Set objFile = objFso.getFile(rngCell.Offset(, -1).Value)
objFile.Delete
End If
Next
End Sub
From: [email protected] [mailto:[email protected]]
On Behalf Of Shinda Singh
Sent: Mar/Thu/2012 03:03
To: [email protected]
Subject: $$Excel-Macros$$ Need Urgent Help_Surendra
Hi Team,
I need a help from your side, i have a folder where more that 2000 xls and
word and PDF file save. i want to make a list of name in MS excel and then i
want to delete the unusable file from the list,
Please help me.
Thanks and Regards,
Surendra Singh
+91 95842 66415
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
----------------------------------------------------------------------------
--------------------------
To post to this group, send email to [email protected]
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to [email protected]
DeleteFiles.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
