שלום אנשים
התקנתי מסנגר 7.5 במחשב נוסף וברצוני להעביר את שלל הפרצופים שיש במחשב הישן באותו מסנגר 7.5 עבור אותו משתמש למחשב החדש.
איך עושים זאת?
תודה, טל

בעיקרון אתה יכול להעביר הקבצים שמכילים את הקבצים

C:\Documents and Settings\%username%\Application Data\Microsoft\MSN Messenger\1838530080\

אצלך המספר יהיה שונה כנראה,
אבל זה המיקום לחפש את הקבצים שלך

אני דווקא כתבתי תוכנית קטנה ב-VBS שתזין את כל הקבצים אוטומטית חזרה במסנגר
השיטה עקומה אומנה, כי היא מבוססת על SNEDKEY ולא עיבוד פיזי של קבצים
ויש לפעמים בעיות איתה, אבל היא עושה את העבודה בפסיק מהזמן שיקח לך להזין אותם ידנית

קוד:

Dim FolderPath 
	FolderPath = InputBox("Enter Full Path i.e: H:\temp\", "Enter Path ...", FolderPath) 'Or any path
	msgbox FolderPath

Set oWS = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(FolderPath)
Set objFolder_Contain = objFolder.Files

Dim objFSO
Dim objFolder 

Dim objFolder_Contain
Dim foundFile
Dim Crate_Folder_Named
Dim strFilename 
Dim sefty
	sefty = 0
    
    For Each foundFile In objFolder_Contain
		sefty = sefty + 1
		strFilename = Left(foundFile.name,Len(foundFile.name)-4)
		if Len(strfilename) >= 7 then
			'msgbox "Filename to long: " & strfilename
			strfilename = mid(strfilename,1,6)
		end if
		'WScript.Echo strFilename '&chr(10)&chr(13)  Debug
		oWS.AppActivate "My Emoticons"
		oWS.Sendkeys "%C" ' ALT+C
		oWS.Sendkeys "%F" ' ALT+F
		oWS.Sendkeys foundFile ' Full path
		oWS.SendKeys "~" ' ENTER
		oWS.SendKeys ";" & strFilename
		oWS.SendKeys "~"
		WScript.Sleep (200)
		if sefty = 10 then
			Response = MsgBox("Continue ?", vbYesNo, "My Title")
			if Response = 6 then
				sefty = 0
			else
				EXIT FOR
			end if
		end if
    Next
    Set objFSO = Nothing

נ.ב - הקבצים בתיקיה אולי בעלי סיומת מוזרה, אבל הם אותם קבצים בדיוק מהמקור
תאלץ להעתיק אותם ולשנות להם את השם

נ.ב - התוכנית שלי מזינה את הקבצים לפי חיתוח השם עד ל-6 תווים ואז מוסיפה תו התחלה ";"
אלה הדרישות שלי שהיו לי , כי לא רציתי ליצור התנגשויות או סתם להשתמש באיקונים בלי צורך