hi Ashish in my Italian version it does not work. It has to be changed Application Data into Dati Applicazioni. While sub test runs properly:
Sub test() Dim s As String Dim fso, f, e Set fso = CreateObject("Scripting.FileSystemObject") s = VBA.Environ("appdata") s = fso.BuildPath(s, "Microsoft") s = fso.BuildPath(s, "Excel") If fso.FolderExists(s) Then Set f = fso.GetFolder(s) For Each e In f.Files If fso.GetExtensionName(e) = "xlb" Then Debug.Print e.Path End If Next End If End Sub maybe you should be more explicit because I have not yet understood. regards r 2010/11/25 OpenExcel.com <ashishj...@openexcel.com> > Hey Friend, > > The script needs to be run in 'Application Data --> Microsoft --> > Excel'. If you can go here manually then VBA code must run fine. > > ________________________________________ > Thanks & Regards > Ashish Jain > (Microsoft Certified Application Specialist) > (Microsoft Certified Professional) > http://www.excelitems.com > http://www.openexcel.com > ________________________________________ > > On Nov 25, 6:23 pm, roberto mensa <robb....@gmail.com> wrote: > > perhaps I was misunderstood because of my bad English, i don't know where > is > > the problem, I would not have asked ... is correct? > > where come you want to run the script? > > something goes wrong permissions? > > > > regards > > r > > > > 2010/11/25 OpenExcel.com <ashishj...@openexcel.com> > > > > > > > > > > > > > > > > > Ok Robert, then what is the problem? > > > > > ________________________________________ > > > Thanks & Regards > > > Ashish Jain > > > (Microsoft Certified Application Specialist) > > > (Microsoft Certified Professional) > > >http://www.excelitems.com > > >http://www.openexcel.com > > > ________________________________________ > > > > > On Nov 25, 5:13 pm, roberto mensa <robb....@gmail.com> wrote: > > > > 2010/11/25 OpenExcel.com 26may.1...@gmail.com > > > > > > > A reference to 'Visual Basic for Applications' must be > > > > > made in order to access VBA Object model. > > > > > > yes of course. > > > > regards > > > > r > > > > > -- > > > > > > --------------------------------------------------------------------------- > ------- > > > Some important links for excel users: > > > 1. Follow us on TWITTER for tips tricks and links : > > >http://twitter.com/exceldailytip > > > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310 > > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com > > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > > > > To post to this group, send email to excel-macros@googlegroups.com > > > > > <><><><><><><><><><><><><><><><><><><><><><> > > > Like our page on facebook , Just follow below link > > >http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&. > .. > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts > -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts