18-08-2007, 20:13
|
|
\dev\null
|
|
חבר מתאריך: 08.11.02
הודעות: 11,379
|
|
כמו שהצעתי לך אני יכול לתת לך את הסקריפט שבניתי,
הוא לא 100% אמין אבל אם יש לך סבלנות הוא יעשה את העבודה יפה מאוד,
אני משחזר איתו כמויות של איקונים
אם תרצה הסבר על אופן השימוש בו , אז שלח הודעה ,
בגדול השיטה די מפגרת היא פשוט שולחת קיצורי מקשים לתוכנה
טיפשי אך עובד
קוד:
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
' My Emoticons -- for older ver
oWS.AppActivate "Emoticons" ' for 8
'oWS.AppActivate "My Emoticons" ' for msn 7
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 (100)
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
|