Synchronize SLD with SMSY

Hello,
1. Our Master SLD runs on SMP (Solution Manager) server.
2. We do have also the SMSY on the sames SMP (Solution Manager).
3. Through SAP Standard daily job - LANDSCAPE FETCH (ABAP : RSGET_SMSY), SMP-SMSY is synchronized with SMP-SLD.
But there is an error :
1. In SMD-SLD, I have a system CDT.
2. This system is entered 2 times in the SMP-SLD :
One as CDT as Web AS ABAP and once as Web AS JAVA, which is right.
After the end of LANDSCAPE FETCH job execution, I get 2 entries in SMP-SMSY :
1. CDT
2. CDT_00001
CDT is right, but CDT_00001 is wrong.
Any idea ?
I got the same error for some other systems.
Thanks
PC

Hi,
Check this note
1360590
This should solve your problem.
Feel free to revert back.
-=-Ragu

Similar Messages

SLD to SMSY synchronization - Which product version do we have to choose ?

Hello,
We do have a CPP system running on SAP ECC 6.0 version.
1. In SLD, we do have the list of all "Software Components" used in CDP.
We do not have the "PRODUCT VERSION" of the managed system.
2. With job SAP_SLD_DATA_COLLECT (RZ70), all data are sent from CDP (managed system) to SLD.
3. With LANDSCAPE FETCH job, all data are synchronized between SLD and SMSY.
Now, how can we choose the right "PRODUCT VERSION" to set in SMSY ?
As far as there is not "PRODUCT VERSION" defined in SLD, do we have to set manually a PRODUCT in SMSY ?
Is there any guide or OSS Notes which describe, step by step, the full workflow process synchronization
from (1) Managed System to (2) SLD to (3) SMSY ?
Thanks
Best regards
PC

Hi,
As I have observed, when the data sync happens between SLD and SM system, the product versions are also assigned.
Sometimes, the product assigned through SLD sync may not be correct or may be irrelevant to your scenario,
In that case, you should always manually edit and assign the correct product version in SMSY, to avoid any conflicts arising in further setup of EWA, SMD setup etc.
For ECC 6.0, you can goto SMSY>systems>search for SAP ECC-->your system CPP/CDP should already be present under SAP ECC through SLD landscape fetch job.
Select that system, and in the header data tab u can see the Installed product versions.
There you can always change the relevant products for your systems.
Hope this helps.

I can´t remember the security code to unblock my iPod touch and when I try to synchronize it with iTunes I can´t because it ask me to introduce the code that I don´t remember. In my iPod says that it is desactivated and I need to connect to iTunes...

I can´t remember the security code to unblock my iPod touch and when I try to synchronize it with iTunes I can´t because it ask me to introduce the code that I don´t remember. In my iPod says that it is desactivated and I need to connect to iTunes...so It returns me to the begining...
I already tried to reset the iPod, but it did´t work....
I need to activate again my iPod...Help!!

Place the iPod in Recovery mode and connect to your computer and restore via iTunes.
Recovery mode

Do XI service users have to exist in the SLD with the same password?

Hi All,
Do XI service users have to exist in the SLD with the same password?
We have a 3 system(development, QA and production) XI landscape with a single SLD. All systems are NW04s with support stack 9.
We are required to change XI service user passwords. I have found OSS note 936093 for changing these passwords. What I am not sure of is if I can change XI service user passwords one system at a time. I am under the impression that XI service users must exist in the SLD with the same password as the XI system. If this is correct, I have to change service user passwords in all three systems at the same time which is not very feasible.
Thanks,
Hamid Lashgari

Creation and Maintain Users
For the transport of Integration Server content, it is a good idea to install CMS on an
existing Integration Server. In this double-stack scenario, where an ABAP and J2EE
stack is used, user management is different from a J2EE only installation.
Note: For more information about using CMS on a J2EE only installation, see the
CMS documentation.
The following section describes the double-stack user management settings required
when CMS is running on the Integration Server in the development environment. See
Figure 2. The description we provide starts with ABAP user management and is followed
by the maintenance in J2EE User Management Engine (UME). You proceed as follows:
Create the service user LSADMIN using transaction SU01.
Assign the ABAP roles SAP_XI_CMS_SERV_USER and
SAP_SLD_ORGANIZER to the LSADMIN service user.
Create the ABAP role SAP_CMS_ADMINISTRATOR and assign this role to the
ABAP dialog user(s) responsible for CMS administration.
In UME, create the role CMSDeveloper with the actions CMS.Display and
CMS.Export.
In UME, create the role CMSAdministrator with the action CMS.Administrate.
In UME, assign the users representing xirepuser and xidiruser to the role
CMSDeveloper.
In UME, assign the group SAP_CMS_ ADMINISTRATOR to the role
CMSAdministrator.
Log on to CMS with the ABAP dialog user responsible for CMS administration.
Maintain the CMS service user (LSADMIN) for the domain.
Task XI Dev
With CMS XI Test XI Prod
Create the service user LSADMIN in TA using transaction
SU01. Yes Yes Yes
Assign the ABAP roles SAP_XI_CMS_SERV_USER and
SAP_SLD_ORGANIZER to the LSADMIN service user. Yes Yes Yes
Create the ABAP role SAP_CMS_ADMINISTRATOR and
assign this role to the ABAP dialog user(s) responsible for
CMS administration.
Yes No No
In UME, create the role CMSDeveloper with the action
CMS.Display and CMS.Export.
Yes No No
In UME, create the role CMSAdministrator with the action
CMS.Administrate.
Yes No No
In UME, assign the group SAP_CMS_ ADMINISTRATOR to
the role CMSAdministrator
Yes No No
Log on to CMS with the ABAP dialog user responsible for
CMS administration.
Yes No No
Maintain the CMS service user (LSADMIN) for the domain. Yes No No
Figure 4: Overview of User Management Tasks in Different Systems

I updated my computer to os x 10.5.8 so I can synchronize iphone with itunes. For some reason computer does not noticed it has been updated. Can anyone advise?

I updated my computer to os x 10.5.8 so I can synchronize iphone with itunes. For some reason computer does not noticed it has been updated. Can anyone advise?

Try what Terence Devlin posted in this topic:
Terence Devlin
Apr 14, 2015 11:21 AM
Re: Is Iphoto gone ? i want it back!
in response to Johannes666
Recommended
Go to the App Store and check out the Purchases List. If iPhoto is there then it will be v9.6.1
If it is there, then drag your existing iPhoto app (not the library, just the app) to the trash
Install the App from the App Store.
Sometimes iPhoto is not visible on the Purchases List. it may be hidden. See this article for details on how to unhide it.
http://support.apple.com/kb/HT4928
One question often asked: Will I lose my Photos if I reinstall?
iPhoto the application and the iPhoto Library are two different parts of the iPhoto programme. So, reinstalling the app should not affect the Library. BUT you should always have a back up before doing this kind of work. Always.

Synchronize form with self-referencing VO in tree table. POJO Based Model

Hello. I need your help
ADF Code Corner sample #32 show how to build a tree table from a self referencing VO:
[http://www.oracle.com/technetwork/developer-tools/adf/learnmore/index-101235.html#CodeCornerSamples]
ADF Code Corner document Oracle JDeveloper OTN Harvest 09/2011 by Frank Nimphius show how to build an edit form for the table data and how to synchronize it with the selected row in the tree table:
[http://www.oracle.com/technetwork/developer-tools/adf/learnmore/sept2011-otn-harvest-508189.pdf]
This examples are helpful, but i have a problem, i have not a model based on a database, my application datamodel is based in POJO objects, there are no appModules or ViewObjects so I do not know how to reference the tree table target attribute with the edit form iterator.
Can anyone help me?
Maybe (i dont know how) i need make a VO and a AppModule that wraps the POJO model ?
thank you very much

Hi,
this should work the same. You create a tree from a POJO Data Control based on your POJO Model. Expose another collection pointing to the same data set and drag it as the form. Use the setting on the tree configuration dialog to set the current row in the tree as the current in the form iterator.
Frank

How could I synchronize iCloud with Outlook 2011 CONTACTS?

How could I synchronize iCloud with Outlook 2011 CONTACTS?

Since this is a MacBook Pro Hardware forum, you would get a better answer in the iCloud forum.

How to synchronize animation with time?

I want to synchronize animation with time, but I can't determine the current time, because the return value of the System.currentTimeMillis() method is updated only every 10 milliseconds.
The following example demonstrates it:
import java.applet.Applet;
import java.awt.Graphics;
class TimeStep extends Applet
long minimalStep=1000L;
long lastTime=System.currentTimeMillis();
public void paint(Graphics g)
    g.drawString("Minimal timestep: "+minimalStep,5,30);
    for (int i=25;i-->0;)
      while (true)
         long newTime=System.currentTimeMillis();
         long step=newTime-lastTime;
         if (step>0L)
             if (step<minimalStep)
                minimalStep=step;
             lastTime=newTime;
             break;
    repaint();
}It causes flickers by most framerates:
import java.applet.Applet;
import java.awt.Graphics;
class SynchronizedAnimation extends Applet
static final int FRAME_RATE=90;     // 100 works, 90 flickers
static final int STEP=5;
static final int WIDTH=640;
static final int HEIGHT=20;
static final long FRAME_TIME=1000L/FRAME_RATE;
int lastPosition,newPosition;
long lastTime=System.currentTimeMillis();
public void paint(Graphics g)
    long waitedTime=lastTime+FRAME_TIME;
    while (waitedTime-System.currentTimeMillis()>0L);
    lastTime=waitedTime;
    newPosition=(lastPosition+STEP)%WIDTH;
    g.drawLine(newPosition,0,newPosition,HEIGHT);
    if (lastPosition!=newPosition)
        g.setColor(getBackground());
        g.drawLine(lastPosition,0,lastPosition,HEIGHT);
        lastPosition=newPosition;
    repaint(0L);
public void update(Graphics g)
    paint(g);

On windows 9x its even worse. The timer is only updated every 50/60 milliseconds.
Instead you could do something like keep the time when the animation starts, and then everytime you want to paint, check how much time has gone since then and calculate where the animation has gone to at this point.
Even if you can only update every 50 ms, it gives you 20 frames. I don't think its that bad.

Having email imap synchronization problems with outlook 365 proplus

Hello,
I have email imap synchronization problems with outlook 365 proplus.
If I sent emails , my sent items box does not synchronized.
This is really a bug, because I see more problems like this on internet.
Please make ASAP a solution , this is not professional
JMR

Hi JMR,
Assuming you are referring to Outlook 2013 by "outlook 365 proplus". This is actually because Outlook 2013’s IMAP implementation has changed when compared to previous versions of Outlook.
While configuring the IMAP account, Outlook will talk to the IMAP server for the correct folders first. If Outlook 2013 can’t find the correct folder for the Sent Items in your mail server, it will create a folder which doesn’t sync with the mail server.
To sync the Sent Items folder with IMAP server, we can try to root the mailbox:
Go to FILE->Account Settings->Account Settings…
Double click on your IMAP account.
Click More Options… button, then Advanced tab
Type "Inbox" as the "Root folder path"
Hope this helps.
Regards,
Ethan Hua
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
programs.

Synchronization completed with 13 errors.

Hi All,
This is my first time I have setup WebTools and I seem to be having some issues. I have been through the e-learning and all documents I could get my hands on but still am having issues.
I run the syncronisation in the sync manager and it completes with the message "Synchronization completed with 13 errors." I think these errors are minor and only effect the opportunities object. However, when accessing the website administration section, I cannot seem to access any of the information that should be syncronising from the database. I cannot browse any customer information / sales order details or anything else. I am pretty sure it is something simple I have missed but I am a bit lost.
I am currently just running the software in a demo environment and connecting to SBODemoUK database. Any help would be greatly appreciated, maybe a checklist of things to make sure I have not left out?
Regards
Gareth

Hi Bryce,
The errors are as follows:
"SBOOpportunity - SBO ContactPerson (OCPR) 16 does not correspond to a NetPoint Users.UserID.
at NetPoint.SynchSBO.SBOObjects.SBOOpportunity.SBOToNetPoint(SBOQueueObject qData)
at NetPoint.SynchSBO.SynchObjectBase.Synch()"
At this stage I am not too concerned if I cannot view my opportunities via the web, I am more concerned that I cannot view any of my information via the web. The information seems to synch because the records are in the Web database. How should I browse to view these records? When I try to enter a sales order via the web, I cannot view any of the BP's that should be in the system.
Regards
Gareth

Synchronization Problems with BlackBerry Desktop Manager 4.5v and Windows Mail Client

BlackBerry (RIM) Desktop Manager 4.5v synchronization setup does not work properly. I cannot synchronize my desktop calendar because the only desktop application formats available are (<None>, Ascii Import/Export and Yahoo), Windows Mail is not an option!
I contacted BlackBerry and the only response I received was that I need the Outlook Express program to synchronize my desktop calendar.
Microsoft upgraded from the Outlook program to Windows mail to provide a better program, which I happen to like! The idea of purchasing the Outlook Express software when there is nothing wrong with my current mail program does not make any sense to me! And will BlackBerry support any Vista system issues if there are any compatibility problems with the old Microsoft mail client?
Has anyone contacted BlackBerry about this issue? Any ideas how to fix this problem?
Why can’t Blackberry (RIM) resolve the synchronization issue? In addition to this problem, you may find that the Desktop Manager Device Switch Wizard does not function with the Treo 650 and BlackBerry 8830 and the Advanced feature in Backup and Restore does not seem to save the any files that you want to restore.
BlackBerry Please Help!
Note:
Microsoft Office Standard 2007 is $399, really expensive! Not sure if you can purchase the mail client separately.
- Microsoft website: [“Outlook Express has been replaced by Windows Mail, an improved e‑mail program with enhancements such as junk e‑mail filtering and protection against phishing messages.”]

Hello My8830
You can only synchronize contacts with Windows Mail - you can not synchronize calendar, memos, or tasks. Outlook express does not have these items, and the version of Windows Mail that I am running also does not have them. Windows Calendar is seperate from windows mail on my version of Vista.
So to clarify it all, downgrading to Outlook Express will still not get you calendar synchronization as it does not have a calendar.
Cheers

SMD error: PPMS Modelling is inconsistent with SMSY. Check PPMS Keys

Hi,
In extractors configured - WORKLOAD ANALYSIS (Introscope DATE) - BI Java, i have an inconsistency for Enterprise Portal:
ERROR: Consistency Check: PPMS Modelling is inconsistent with SMSY. Check PPMS Keys.
I can not find the problem. Can you help me?
Best regards,
Diego.

Hello Diego,
In regards to the error you are getting:
"PPMS Modelling is inconsistent with SMSY. Check PPMS Keys."
There is a daily consistency check against SMSY. In case that the PPMS information in SMSY changed, we flag the relevant
extractor in order to prevent collecting of false data. Please delete the inconsistent extractors for system <select your managed SID> in the EFWK AdminUI (Managing System -> Inconsistent Extractors) and rerun the managed system setup for system <select your managed SID>.
This will resolve your issue.
Thanks,
Mark

How to add EP 7.0 system in SOLMAN with smsy

Hi Gurus
I have solman ehp1 SPS25, want to add the managed systems through TA :SMSY
The Tabs are showing in the Landscape components are __>
1. server 2. Databases 3. Product systems (Product systems w/o product, SAP ERP, SAP SOLUTION MANAGER)
4. Technical Systems ( JAVA,..)
I want to add a EP 7.0 system in to SMSY, so i added at (server, Databases). but in the Product systems i could not able to see the SAP NW ,....)
kindly let me know how or where to add an EP system into SOlman.
Thanks in advance
Regards
Balaji

Hello Balaji
1 i think i have to configure this in http://<solmanhost>/sld by giving the path of EP system and EP systems user J2ee_admin
please correct me.
--> You have to create the data supplier bridge in your http://<ep7host>:5<instance no>00/sld under administration --> data supplier and give the path of the Sol man system with user SLDDSUSER (normally or a user with sufficient authorization). J2EE_ADMIN probably has enough rights but I wouldn't recommend placing J2EE_ADMIN in such connection as the user-id can get locked if the password is incorrect or at same point of time the password is changed and you forget to also update the data supplier user/pass.
A data supplier bridge will send updated data to the target defined in the data supplier. So after you trigger the update of your local EP7 SLD, the data supplier comes into action and you should also see the timestamp is updated in your Sol Man SLD (under technical systems search the SID of your EP7 SAP system).
2 can it be done in Portal's VisualAdmin? please correct me.
do i need to delete the existing portal system ( which configured manually) from solman smsy?
Two times yes I would recommend you cleanup your manual entries (deleting them)
Kind regards
Tom

When getting information from SLD, should SMSY create a system for EP?

I've connected my EP NW2004s system ES3 to the SLD. I connected Solution Manager 4.0 to SLD so that SMSY can get information from the SLD. When I run the import, I see:
1. ES3's server sapeps03 created under SMSY Landscape Component ->Server.
2. ES3 's database ES3 created under SMSY Landscape Component-> Database.
3. ES3 Java component entry created under SMSY Landscape Component->System Components->Java System.
BUT, I don't see an ES3 entry under SMSY Landscape Component->Systems->SAP Netweaver. Shouldn't there be? Do I have to create this manually?
The ECC 5.0 system RS3 got created under SMSY Landscape Component->Systems->SAP ECC. Why not the EP system?
Thanks.
Regards,
Mel Calucin

Hello Mel,
the SMSY transaction had a lot of issues resolving the appropriate Java product with older versions of Solution Manager. For instance, you can take a look at the SAP Note 1392992.
Newer versions of Solution Manager (currently on SP24) resolve most of the issues. The portal is certainly detected successfully.
My recommendation would be having Solution Manager updated always with the latest Support Package stack available.
All the best,
Andreu

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

Synchronize SLD with SMSY

Similar Messages

Maybe you are looking for