Hi Ashish
well done ! Appreciate your knowledge & help !
On Sat, May 14, 2011 at 12:19 PM, ashish koul wrote:
> use move to move files and copy to copy the files
>
>
> Public f As Object, d As Object
> Sub Main()
>
> Dim Fso As Object
> Set Fso = CreateObject("Scripting.FileSystemObject
use this one
Public f As Object, d As Object, sw As Object
Sub Main()
Dim Fso As Object
Set sw = CreateObject("Scripting.FileSystemObject")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set RootFolder = Fso.GetFolder("C:\Documents and
Settings\ashish\Desktop\ashish koul"
use move to move files and copy to copy the files
Public f As Object, d As Object
Sub Main()
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Set RootFolder = Fso.GetFolder("C:\Documents and
Settings\ashish\Desktop\ashish koul")
FolderRead RootFolder
End Sub
Hi friends,
I have a simple request that it's confusing me. I have a folder (let's call
"c:\motherfolder\"), that has thousands of subfolders. In each subfolder
there are 3 files: 1 .pdf, 1 excel (may be .xls or .xlsx), and 1 .jpeg.
I need to copy all pdfs to one folder (let's say "c:\pdfs_folder\
