SharePoint 2010 sites along with SharePoint 2013 sites

Hi,
we have a client who ha SharePoint 2013 foundation installed. They bought third party extension, and unfortunately they found out, that extension is compatible up to SharePoint 2010.
Is it possible to install new SharePoint server 2010, connect it to existing SP 2013 farm and thus activate extension for SP 2010?
Thanks,
Tomas

This only works one way and a SharePoint 2013 farm can not consume services from a SharePoint 2010 provider
http://blogs.msdn.com/b/alimaz/archive/2012/08/07/service-application-federation-between-sharepoint-2013-and-sharepoint-2010.aspx
Kind Regards, John Naguib Technical Consultant/Architect MCITP, MCPD, MCTS, MCT, TOGAF 9 Foundation

Similar Messages

User profile sync Sharepoint 2010 photos thumbnail with AD and Lync 2010 - error on Full Synchronization- get events 8311, 6110, 6803 FIMSynchronization Service

User profile sync Sharepoint 2010 photos thumbnail with AD and Lync 2010 - error on Full Synchronization- get events 8311, 6110, 6803 FIMSynchronization Service
We're trying to set up sync between Sharepoint and AD so photos are displayed in Lync.
The certificate referenced in 8311 is not the sharepoint root cert, its the UCC cert with our FQDN of the site. sharepoint.domain.com
Is this causing the problem with the sync and holding up the photos?
I have tried several proposed fixes, it hasn't helped.
tried this as well:
http://blogs.technet.com/b/praveenh/archive/2011/05/11/event-id-8311-certificate-validation-errors-in-mss-2010.aspx
Josh

Try this fix and see if its sync the photos:
http://blogs.technet.com/b/steve_chen/archive/2010/09/20/user-profile-sync-sharepoint-2010.aspx#Profile Picture Property
http://blogs.technet.com/b/steve_chen/archive/2010/09/20/user-profile-sync-sharepoint-2010.aspx#SyncPicAD2SPS
Update-SPProfilePhotoStore -CreateThumbnailsForImportedPhotos 1 -MySiteHostLocation <mySiteHostURL>
Please remember to mark your question as answered &Vote helpful,if this solves/helps your problem. ****************************************************************************************** Thanks -WS MCITP(SharePoint 2010, 2013) Blog: http://wscheema.com/blog

Deploy SharePoint 2010 Sandbox solution to SharePoint 2013

Hi All,
I have sand-box solution which is developed in Visual Studio 2010 for SharePoint 2010 ,And it is specially developed for branding the SharePoint 2010 site. Now I need
to add the sandbox solution to SharePoint 2013 Site.
Can any one help how can I do this.
Thanks, Quality Communication Provides Quality Work. http://siddiq-sharepoint2010.blogspot.in/ Siddiqali Mohammad .

Hi siddiqali,
According to your description, my understanding is that you want to deploy SharePoint 2010 Sandbox solution to SharePoint 2013.
Most of the wsp Solutions deployed in SharePoint 2010 should work fine in SharePoint 2013. This is because of the Support for both 14 Hive and 15 Hive directories that are Created in SharePoint 2013 by default.
Initially, when you deploy a SharePoint 2010 Solution it gets deployed to 14 Hive and not 15 Hive. To force the solution to install in 15 Hive you need to modify manifest.xml file of your solution and add addSharePointVersion=”15.0” attribute to it. The
Solutions can be forced to install in 15 hive. However, some of the files especially that refers to _layouts might not work. All SharePoint 2010 Solution files that refers to _layouts folder (i.e. Features, Layouts-files, Images, ControlTemplates)needs to
be updated, the best approach is to re-create the Solution in Visual Studio 2012.
More information, please refer to the link:
http://www.learningsharepoint.com/2013/03/24/deploy-sharepoint-2010-solutions-in-sharepoint-2013/
Here are some similar posts for you to take a look at:
http://www.threewill.com/2013/10/migrating-a-sharepoint-2010-solution-to-a-sharepoint-2013/
http://social.msdn.microsoft.com/Forums/sharepoint/en-US/30fe4cb9-ea11-46d0-868d-4306d915b4db/how-to-convert-sp2010-wsp-to-sp2013?forum=sharepointdevelopment
I hope this helps.
Thanks,
Wendy
Wendy Li
TechNet Community Support

Sharepoint 2010 : Dashboard designer Datasource(Sharepoint List) will not preview data.

Sharepoint 2010 : Dashboard designer Datasource(Sharepoint List) will not preview data.
Preview Data-->No data
default view is "All Items.aspx" and I have site collection admin access.
Any help Appreciated.
Kannalo

Hi Kannalo,
You should first deploy the Dashboard to a preview site then you can preview in Dashboard designer.
For more detailed steps to deploy a dashboard to a preview site ,please view this site:
SharePoint 2010 PerformancePoint Services : Dashboards in Dashboard Designer (part 1) - Creating and Deploying a Dashboard :
http://allcomputers.us/windows_server/sharepoint-2010-performancepoint-services---dashboards-in-dashboard-designer-(part-1)----creating-and-deploying-a-dashboard.aspx
Best regards.
Thanks
Victoria Xia
TechNet Community Support

How to migrate sharepoint 2010 infopath form to sharepoint online.

how to migrate SharePoint 2010 infopath form to SharePoint online.

Hi Partha,
You use powershell script to migrate infopath forms from SP 2010 to SP Online. But you need to be careful about external connections used in infopath forms(web service connections etc.) because they might required to be changed. So, for data connections,
use of Data Connection Library is a preferable way or you can write a powershell script to update the data connections also.
You can find the sample script from the below url:
https://drive.google.com/file/d/0B_mYrpgMRd3IbHdpZkNBLVNhd1k/view?usp=sharing
Best Regards,
Brij K

Constant refreshing of IE is only way to get site to display after a SharePoint 2010 Content Database Migration to 2013..why?

Hi,
I am having an issue of having to refresh my IE to be able to view a migrated SharePoint 2010 site in 2010 mode in SP2013. Is this Token Service Problem, Request Management problem.....
Any ideas out there - driving me nuts!
Thanks.
John.
P.S> Still think this could be related to over-provisioned host as all SP Machines are virtual. Won't know for sure until Tuesday.
Thanks.
JOhn.

What are you using Request Management for?
Trevor Seward
Follow or contact me at...
&nbsp&nbsp
This post is my own opinion and does not necessarily reflect the opinion or view of Microsoft, its employees, or other MVPs.

Sharepoint 2010 get User Groups from specific site

Hello,
I was able to get all User groups from entire site Collection.
But instead of getting user groups from entire site, I want read user groups only from one specified sub site.
Please help!
Thanks

Assuming you have an SPWeb object named "web", example:
SPSite site = new SPSite(http://yourdomain/sites/yoursite);
SPWeb web = site.OpenWeb("mysubsite/subsbusite");
web.Groups will return a collection of SPGroup objects for the current subsite. If this subsite inherits permissions from a parent site (web.HasUniquePerm = False), the list is the same as the Groups property of the parent site.
SPWeb.Groups:
http://msdn.microsoft.com/en-us/library/office/microsoft.sharepoint.spweb.groups(v=office.15).aspx
SPGroup:
http://msdn.microsoft.com/en-us/library/office/microsoft.sharepoint.spgroup(v=office.15).aspx
You would be better results by posting coding questions in "SharePoint 2010 - Development and Programming" instead of "SharePoint 2010 - General Discussions and Questions".
Mike Smith TechTrainingNotes.blogspot.com
Books:
SharePoint 2007 2010 Customization for the Site Owner,
SharePoint 2010 Security for the Site Owner

Schedule SharePoint Server 2013 discoveries along with SharePoint Foundation 2013 discoveries

Hi
So I'm trying to add the SharePoint Server discoveries in SCOM 2012 - pasted the code straight of the MS guide into the config file:
    <Workflow Id="MOSSInstallation.Discovery;WACInstallation.Discovery;SearchExpressInstallation.Discovery;SearchStandardInstallation.Discovery" MP="Microsoft.SharePoint.Server.2013.Discovery" Type="Discovery"
Times="1" />
    <Workflow Id="SPService.Discovery" MP="Microsoft.SharePoint.Server.2013.Discovery" Type="Discovery" Times="4" />
    <Workflow Id="SPSharedService.Discovery" MP="Microsoft.SharePoint.Server.2013.Discovery" Type="Discovery" Times="4" />
    <Workflow Id="SPSharedService.Discovery.WAC" MP="Microsoft.SharePoint.Server.2013.Discovery" Type="Discovery" Times="4" />
However when I run the "Configure" Task I get the following error: (NOTE - I discovered that the Dir "Monitoring Host Temporary Files 28803\2522979" does not even exist - )
The Event Policy for
the process started at 8:13:26 AM has detected errors in the output. The
'StdErr' policy expression:
.+
matched the
following output:
Exception calling
"GetDiscovery" with "1" argument(s): "An object of
class ManagementPackDiscovery with ID fedca251-56d5-be00-d6af-9cae645d6f36 was
not found."
Failed to find
workflows WSSInstallation.Discovery in Microsoft.SharePoint.Foundation.Library
Command executed:
"C:\Windows\system32\cmd.exe" /c powershell.exe -NoLogo -NoProfile
-Noninteractive "$ep = get-executionpolicy; if ($ep -gt 'RemoteSigned')
{set-executionpolicy remotesigned} & '"E:\Program Files\System Center
2012\Operations Manager\Server\Health Service State\Monitoring Host Temporary
Files 28803\2522979\AdminTask.ps1"'
'Microsoft.SharePoint.Foundation.Library.mp.config'"
Working Directory:
C:\Program Files\System Center Management Packs\
One or more
workflows were affected by this.
Workflow name:
Microsoft.SharePoint.ConfigSharePoint
Instance name:
Microsoft SharePoint Farm Group
Instance ID:
{6CB0A80D-D833-26EA-13C1-0CA48A57F5E2}
Management group:
Error Code:
-2130771918 (Unknown error (0x80ff0032)).
If anyone has any ideas that would be great -
J

Hello Jon,
Thank you for your question.
We are currently looking into this issue and will give you an update as soon as possible.
Thank you for your understanding and support.
Victoria
Forum Support
Please remember to mark the replies as answers if they help and unmark them if they provide no help. If you have feedback for TechNet Subscriber Support, contact
[email protected]
Victoria Xia
TechNet Community Support

InfoPath 2013 customized forms no longer working after linking Sharepoint 2010 list to MS Access 2013 database

Hello,
I am having trouble with my infopath form now that I have linked my Sharepoint list to an Access database.
Background: I created a simple SharePoint list and a few workflows to have users submit requests for changes to my organization's EMR system and have those requests be approved by the appropriate manager/department. I used
InfoPath to customize my form so that it would hide/show different portions depending on what the user selected. The form has 3 views: NewItem, EditItem, ViewItem.
Issue: The form and workflows were working great until I linked my SharePoint list to an access database so that I could run queries and reports using that information. Now when I click "Add New Item" on my Sharepoint site,
the correct form opens but the fields do not allow me to input any data and some of the formatting for the form has changed (ie: the text boxe fields are no longer centered. I opened the form in InfoPath and it displays perfectly fine in there but
not once it's published to the site) .
The only way that I've been able to input new data is using Datasheet view in SharePoint.
Is there a way to fix this issue? I really need to be able to have the customized forms for users to fill out the information since most users are not familiar enough with SharePoint to expect them to be able to use Datasheet view to submit their requests.
Again, I'm using InfoPath 2013, Access 2013 & SharePoint Server 2010
If the issue cannot be fixed, how can I disconnect or unlink my SharePoint list from the Access database because when I cliecked on "delete list" from inside Access, a warning popped up stating that it will also delete the list off of SharePoint
as well. If I can get the list back to the state it was in before linking to Access then I'll be happy enough to export it excel and then importh the excel file to Access as a work around for reporting purposes since I don't have to run the reports that
often.
Any insight would be very helpful!!

Hi Bostic,
I tested the same scenario per your post in my environment, however the InfoPath form was not affected if I used the list as external data in Access database.
The issue may be due to the browser you used.
I recommend to verify the things below:
Change another browser to see how it works.
Add the site to the trusted zone and add to compatibility settings in Internet Explorer.
Test with a new list to narrow down the issue scope.
As a workaround, you can save the list as a template including content, and then create a new list based on this template.
Learn how to Save a SharePoint List Template:
http://www.fpweb.net/sharepoint-2010/tutorials/content/save-list-template/#
Best regards.
Thanks
Victoria Xia
TechNet Community Support

Powershell script to get a LIST OF ALL SITES ALONG WITH URL from a web application where we gave access to EVERYONE AD GROUP

Hi,
Any help on this?
Thanks
srabon

i found one on the Codeplex, this will check Nt auth group, you have to modify accordingly your need and test it in your test farm.script is for 2010 but i am positive it will work for 2013 as well.
The Sixth script lists
all the site collections which have "NT AUTHORITY\authenticated users" in
Please remember to mark your question as answered &Vote helpful,if this solves/helps your problem. ****************************************************************************************** Thanks -WS MCITP(SharePoint 2010, 2013) Blog: http://wscheema.com/blog

Databases running in compatibility range, upgrade recommended. Sharepoint 2010 SP2 after installing December 2013 CU

I just installed December 2013 CU for Sharepoint 2010 with SP2. I runned the Product Configuration Wizards a couple of time and exexute "PSConfig.exe -cmd upgrade -inplace b2b -force -cmd applicationcontent -install -cmd installfeatures".
But still I'm left with one database that is out of date.
The following databases have versions that are older than the current SharePoint software, but are within the backwards compatible range:
Search_Services_Application_DB_0256be25a85b4c3081387181e4a8c6c7.
Do you know what can I try next to fix this?
Thanks!

Hi Steve,
In the Upgrade log what is the error when PSconfig attempts the Upgrade, I am assuming it completes with a warning?
Cheers,
-Ivan

Sharepoint Designer 2010 Workflows Struck in "starting" status after Sharepoint 2010 SP2 upgrade(KB2687453 - June 2013)

We have SPD workflows and Nintex workflows which are configured to start automatically on a Document Library which have content type. After we have been installed KB2687453
(sp2) , all the workfows running on documnet library with content type got strucked and always saying" starting". Please help us.,... highly apprciated as it's urgnet. Thanks in advance.

Hi nart ,
It is a known issue. Please install the June 2013 CU to solve the problem.
June 2013 CU:
http://blogs.technet.com/b/stefan_gossner/archive/2013/06/12/june-2013-cu-for-sharepoint-2010-has-been-released.aspx
For more information, you can refer to the thread:
http://blogs.msdn.com/b/chaun/archive/2013/05/16/if-your-sp2010-workflows-are-stuck-in-the-starting-state.aspx
http://social.technet.microsoft.com/Forums/sharepoint/en-US/5a6e6e83-b59f-4099-a86f-a07723ff2b98/workflow-stuck-in-starting-state-after-applying-sharepoint-2010-cu-december-2012?forum=sharepointadminprevious
Best Regards,
Eric
Eric Tao
TechNet Community Support

Is there a way to use SharePoint 2010 Datasheet View in SharePoint 2013?

Quick edit mode doesn't meet users' requirement. They want the header freezing and column width adjustable like what they did in SharePoint 2010.
I understand the Datasheet view is achieved by Access ActiveX control. Can this be used in SharePoint 2013? And SharePoint 2013 online?

Anyone with a solution to use SP 2010 datasheet AxtiveX control somehow as SP 2013 datasheet view?
Anupam Shrivastava
That wouldn't be possible, this is controlled server-side.
Trevor Seward
Follow or contact me at...
&nbsp&nbsp
This post is my own opinion and does not necessarily reflect the opinion or view of Microsoft, its employees, or other MVPs.

How to migrate a SharePoint 2010 workflow to an SharePoint 2013 environment

Dear guys,
I have a SharePoint 2010 environment with a workflow. Now I would like to migrate this workflow in the SharePoint 2013 environment? How could this be done?
I tried it via Visio, but it is not working...
Best regards
Matthias

All SharePoint designer 2010 based workflows will be upgraded AS IS and can be enhanced using SPD 2013 but enhancement can be done in SP2010 mode only (using SP2010 features), no new SP2013 features can be used in SPD 2010 workflows. Microsoft has provided
a workaround to trigger SP2010 workflows with-in SPD2013 workflows using workflow interop for SharePoint 2013.
For more info visit:
http://technet.microsoft.com/en-us/library/jj219638(office.15)
http://technet.microsoft.com/en-us/library/jj227177.aspx
http://technet.microsoft.com/en-us/library/jj163181.aspx
http://technet.microsoft.com/en-us/library/jj670125.aspx
http://social.msdn.microsoft.com/Forums/sharepoint/en-US/f241149b-fbf5-49c5-b7ba-058671432f4e/how-to-upgrade-spd2010-workflow-to-sharepoint-2013-workflow

Excel 2010 Synchronize List with SharePoint List using VBA

I have used and loved the interaction between Excel and SharePoint for many generations of both solutions. It's a wonderful opportunity to integrate the familiarity and simplicity of Excel (formatting, ease of use, availability) with the data storage
and centralized list capabilities of SharePoint. Right?
When upgrading to Excel 2010, I have noticed with much dismay that much of the inherent easy to use features of previous versions were effectively stripped from this newest version. Much research, time and energy has been spent working around and resolving
the deficiency. One Microsoft based article,
http://support.microsoft.com/kb/930006, has provided the mechanics behind utilizing the "hidden" functionality... although, this capability to use VBA to create the synchronized list was available in previous versions. However, once Microsoft
published this article to this "hidden" functionality... I feel that the behavior should be supported by Microsoft in some way. OK?
Revised instructions to reproduce the problem:
1. Create a SharePoint list with 20 dummy records.
- Note the List Name ##LIST_NAME##
- Note the View GUID ##VIEW_GUID##
- Note SharePoint Base URL ##BASE_URL##
2. REVISED... In Excel 2010, save the file as Compatible "Excel 97-2003 Workbook". Close the file and reopen.  Create a connected table (ListObject) in Excel using the article above to the SharePoint list. Use Sample VBA code
below:
Sub LinkedSharePointList()
ActiveSheet.ListObjects.Add SourceType:=xlSrcExternal,_
    Source:=Array(##BASE_URL## & "/_vti_bin", ##LIST_NAME##, _
    ##VIEW_GUID##), LinkSource:=True, Destination:=Range("A1")
End Sub
3. OOPS REVISED this item. The problem is actually with ROW 21... So, update record on row 21... (no matter where the table is located... (if the "Destination" is "A1", then the problem is with ID=20, but if the Table is
shifted down to say A12, then ID=9 on row 21). Anyway... make a simple change to that record... and you'll see the ID immediately change.... as if it's a NEW record. WEIRD! Note: If the sheet is protected, then an error is displayed
indicating that a "read-only" record cannot be updated (referring to the ID cell in column A for the current row).
4. Now "synchronize" the list with excel. The former record is still in the list unchanged AND there is a NEW record in the list holding the changes. There are a number of problems that seem to ONLY occur when something changes to ROW
21.... Next, try to copy/paste multiple records across multiple rows that intersect with ROW 21. Yikes!!
I look forward to hearing others' experience!
Thanks!
Mark

Here are some things that you can try (change the code, where appropriate):
Private Sub CreateList()
    Dim folder As folder
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer
    RowCtr = 1
    Set folder = fs.GetFolder("http://excel-pc:43231/Shared Documents/Forms/") '<=Variable Location
    For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub
Sub ListAllFile()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim pth As String
Dim WBn As Workbook
Dim ObCount As Long
Dim FileNme As String
Application.ScreenUpdating = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object associated with the directory
Set objFolder = objFSO.GetFolder("\\excel-pc:43231\Shared Documents\Forms\")
'** You'll need to specify your path here. By removing the http: from the path, the code liked it & found the folder. It wasn’t working previously ***
pth = "http://excel-pc:43231/Shared Documents/Forms/"
'** You'll need to specify your path here. The reason I’ve done this separately is because the path is not recognised otherwise when trying to specify it with workbook.open & using the value set for objFolder **
ObCount = objFolder.Files.Count
'** counts the number of files in the folder
'Loop through the Files collection
For Each objFile In objFolder.Files
Nm1 = Len("http://excel-pc:43231/Shared Documents/Forms/")
'** You'll need to specify your path here **
Nm2 = Len(objFile) - Nm1
FileNme = Right(objFile, Nm2)
'** I’ve done this part to find out/set the file name**
Set WBn = Workbooks.Open(pth & FileNme, , , , Password:="YourPassword")
'** opens the first file in the library – if there is no password, the remove everything from - , , , , Password:="Password1" – leaving the close bracket ‘)’
Application.ScreenUpdating = False
'** optional – you can leave the screen updating on
'<< Your coding here>>
'** The file is now open. Enter whatever code is specific to your spreadsheets.
Next
'** goes to next file within your sharepoint folder
End Sub
Sub SharePoint()
Dim xlFile As String, xlFullFile As String
Dim xlApp As Excel.Application
Dim wb As Workbook
xlFile = "\\excel-pc:43231\Shared Documents"
'http://excel-pc:43231/Shared Documents/
'****----denotes the path.(i.e) u give the path as windows search.Don't use "\" at the end.
'In the sharepoint path %20 denotes space.so u remove that and use space .
Set xlApp = New Excel.Application
xlApp.Visible = True
xlFullFile = GetFullFileName(xlFile, "Book") 'ANZ denotes starting characters of the file.
xlFile = xlFile & "\" & xlFullFile
Set wb = xlApp.Workbooks.Open(xlFile, , False)
'Once the workbook is opened u can do ur code here
wb.Close False
End Sub
Function GetFullFileName(strfilepath As String, _
strFileNamePartial As String) As String
Dim objFS As Variant
Dim objFolder As Variant
Dim objFile As Variant
Dim intLengthOfPartialName As Integer
Dim strfilenamefull As String
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strfilepath)
'work out how long the partial file name is
intLengthOfPartialName = Len(strFileNamePartial)
For Each objFile In objFolder.Files 'Instead of specifying the starting characters of the file you can directly loop through all files in the folder .
'Test to see if the file matches the partial file name
If Left(objFile.Name, intLengthOfPartialName) = strFileNamePartial Then
'get the full file name
strfilenamefull = objFile.Name
Exit For
Else
End If
Next objFile
Set objFolder = Nothing
Set objFS = Nothing
'Return the full file name as the function's value
GetFullFileName = strfilenamefull
End Function
Sub SrchForFiles()
' Searches the selected folders and sub folders for files with the specified (xls) extension.
'ListTheFiles 'get the list of all the target XLS files on the SharePoint Directory
Dim i As Long, z As Long, Rw As Long, ii As Long
Dim ws As Worksheet, dd As Worksheet
Dim y As Variant
Dim fldr As String, fil As String, FPath As String
Dim LocName As String
Dim FString As String
Dim SummaryWB As Workbook
Dim SummaryWS As Worksheet
Dim Raw_WS As Worksheet
Dim LastRow As Long, FirstRow As Long, RowsOfData As Long
Dim UseData As Boolean
Dim FirstBlankRow As Long
'grab current location for later reference, for where to paste final data
Set SummaryWB = Application.ActiveWorkbook
Set SummaryWS = Application.ActiveWorkbook.ActiveSheet
y = "xls"
fldr = "\\excel-pc:43231\Shared%20Documents\Forms\AllItems.aspx"
FirstBlankRow = 2
'asd is a 1-D array of files returned
asd = ListFiles(fldr, True)
Set ws = Excel.ThisWorkbook.Worksheets(1) 'list of files
ws.Activate
ws.Range("A1:Z100").Select
Selection.Clear
On Error GoTo 0
For ii = LBound(asd) To UBound(asd)
Debug.Print Dir(asd(ii))
fil = asd(ii)
'open the file and grab the data
Application.Workbooks.Open (fil), False, True
'Get file path from file name
FPath = Left(fil, Len(fil) - Len(Split(fil, "\")(UBound(Split(fil, "\")))) - 1)
'Get file information
If Left$(fil, 1) = Left$(fldr, 1) Then
If CBool(Len(Dir(fil))) Then
z = z + 1
ws.Cells(z + 1, 1).Resize(, 6) = _
Array(Dir(fil), LocName, RowsOfData, Round((FileLen(fil) / 1000), 0), FileDateTime(fil), FPath)
DoEvents
With ws
.Hyperlinks.Add .Range("A" & CStr(z + 1)), fil
'.FoundFiles(i)
End With
End If
End If
'Workbooks.Close 'Fil
Application.CutCopyMode = False 'Clear Clipboard
Workbooks(Dir(fil)).Close SaveChanges:=False
Next ii
With ws
Rw = .Cells.Rows.Count
With .[A1:F1]
.Value = [{"Full Name","Location","Rows of Data","Kilobytes","Last Modified", "Path"}]
.Font.Underline = xlUnderlineStyleSingle
.EntireColumn.AutoFit
.HorizontalAlignment = xlCenter
End With
.[G1:IV1 ].EntireColumn.Hidden = True
On Error Resume Next
'Range(Cells(Rw, "A").End(3)(2), Cells(Rw, "A")).EntireRow.Hidden = True
Range(.[A2 ], Cells(Rw, "C")).Sort [A2 ], xlAscending, Header:=xlNo
End With
End Sub
Function ListFiles(ByVal Path As String, Optional ByVal NestedDirs As Boolean) _
As String()
Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.folder
Dim fileList As String
' get the starting folder
Set fld = fso.GetFolder(Path)
' let the private subroutine do all the work
fileList = ListFilesPriv(fld, NestedDirs)
' (the first element will be a null string unless the first ";" is removed)
fileList = Right(fileList, Len(fileList) - 1)
' convert to a string array
ListFiles = Split(fileList, ";")
End Function
' private procedure that returns a file list
' as a comma-delimited list of files
Function ListFilesPriv(ByVal fld As Scripting.folder, _
ByVal NestedDirs As Boolean) As String
Dim fil As Scripting.File
Dim subfld As Scripting.folder
' list all the files in this directory
For Each fil In fld.Files
'If UCase(Left(Dir(fil), 5)) = "MULTI" And fil.Type = "Microsoft Excel Worksheet" Then
If fil.Type = "Microsoft Excel Worksheet" Then
ListFilesPriv = ListFilesPriv & ";" & fil.Path
Debug.Print fil.Path
End If
Next
' if requested, search also subdirectories
If NestedDirs Then
For Each subfld In fld.SubFolders
ListFilesPriv = ListFilesPriv & ListFilesPriv(subfld, NestedDirs)
Next
End If
End Function
Finally . . .
Sub ListFiles()
    Dim folder As Variant
    Dim f As File
    Dim fs As New FileSystemObject
    Dim RowCtr As Integer
    Dim FPath As String
    Dim wb As Workbook
    RowCtr = 1
    FPath = "http://excel-pc:43231/Shared Documents"
    For Each f In FPath
    'Set folder = fs.GetFolder("C:\Users\Excel\Desktop\Ryan_Folder")
    'For Each f In folder.Files
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    Next f
End Sub
Sub test()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\Users\Excel\Desktop\Ryan_Folder")
    'Set colSubfolders = objFolder.SubFolders
    'For Each objSubfolder In colSubfolders
       Cells(RowCtr, 1).Value = f.Name
       RowCtr = RowCtr + 1
    'Next
End Sub
Ryan Shuell

SharePoint 2010 sites along with SharePoint 2013 sites

Similar Messages

Maybe you are looking for