Results 1 to 1 of 1
Thread: Ìàëêî ïîìîù, ìîëÿ!
Hybrid View
-
30th December 2009 03:47 #1
Ìàëêî ïîìîù, ìîëÿ!
Íàìåðèõ åäèí VBScript êîä êîéòî ñúçäàâà íîâà ïàïêà äèðåêòíî îò êîíòåêñòíîòî ìåíþ íà äèñêîâåòå è ïàïêèòå, êàòî òå ïèòà çà èìå. Ìîäèôèöèðàõ ãî íàïðàâî äà ñúçäàâà íîâà ïàïêà ÷åòåéêè èìåòî îò êëèïáîðäà è äà ÿ îòâîðè â íîâ ïðîçîðåö.
Êàòî öÿëî ðàáîòè äîáðå,íî èìà äâà ìàëêè áúãà.
Åòî ãî êîäà:
Ñòàðòèðà ñå ñ òåçè êëþ÷îâå â ðåãèñòúðà:Code:Dim fso, ws, Args, clip, Title Set fso = CreateObject("Scripting.FileSystemObject") Set ws = CreateObject("Wscript.Shell") Set Args = WScript.Arguments Set clip = CreateObject("WshExtra.Clipboard") Title = "Create New Folder" Call MakeNewFolderClipboard Call Cleanup Sub MakeNewFolderClipboard Dim NewFldr NewFldr = clip.Paste() If NewFldr = "" Then Call Cleanup On Error Resume Next fso.CreateFolder fso.GetFolder(Args(0)) & "\" & NewFldr If Err.Number = 58 Then Err.Clear:On Error GoTo 0 ws.Popup Chr(34) & NewFldr & Chr(34) & " already exists.", ,Title, 0 + 48 + 4096 Call MakeNewFolderInputBox Exit Sub ElseIf Err.Number = 52 Then Err.Clear:On Error GoTo 0 ws.Popup Chr(34) & NewFldr & Chr(34) & " contains invalid character(s).", ,Title, 0 + 48 + 4096 Call MakeNewFolderInputBox Exit Sub End If ws.Run fso.GetFolder(Args(0)) & "\" & NewFldr End Sub Sub MakeNewFolderInputBox Dim NewFldr NewFldr = InputBox("Name for New Folder?", Title, "New Folder") If NewFldr = "" Then Call Cleanup On Error Resume Next fso.CreateFolder fso.GetFolder(Args(0)) & "\" & NewFldr If Err.Number = 58 Then Err.Clear:On Error GoTo 0 ws.Popup Chr(34) & NewFldr & Chr(34) & " already exists.", ,Title, 0 + 48 + 4096 Call MakeNewFolderInputBox ElseIf Err.Number = 52 Then Err.Clear:On Error GoTo 0 ws.Popup Chr(34) & NewFldr & Chr(34) & " contains invalid character(s).", ,Title, 0 + 48 + 4096 Call MakeNewFolderInputBox End If ws.Run fso.GetFolder(Args(0)) & "\" & NewFldr Call Cleanup End Sub Sub Cleanup Set ws = Nothing Set fso = Nothing Set Args = Nothing Set clip = Nothing WScript.Quit End Sub
Íå ñå ó÷óäâàéòå íà 32 áèòîâîòî wscript.exe. Ñ W7 õ64 ñúì, à êîäà ïîëçâà åäíà ñòàðà 32 áèòîâà áèáëèòåêà (íÿìà 64 áèòîâ àíàëîã), ðàçøèðÿâàùà âúçìîæíîñòèòå íà WSH äà êîìóíèêèðà ñ êëèïáîðäà.Code:[HKEY_CLASSES_ROOT\Directory\Background\shell\NFC] @="New Folder from Clipboard" "NoWorkingDirectory"="" [HKEY_CLASSES_ROOT\Directory\Background\shell\NFC\command] @="C:\\Windows\\SysWOW64\\wscript.exe \"C:\\Users\\USER\\Documents\\My VBScripts\\mkdir.vbs\" \"%1\"" [HKEY_CLASSES_ROOT\Folder\shell\New Folder from Clipboard] [HKEY_CLASSES_ROOT\Folder\shell\New Folder from Clipboard\command] @="C:\\Windows\\SysWOW64\\wscript.exe \"C:\\Users\\USER\\Documents\\My VBScripts\\mkdir.vbs\" \"%1\""
Òà åòî ãè è áúã÷åòàòà:
1. Àêî â êëèïáîðäà èìà íå òåêò, à ôàéë ïðèìåðíî, ñúçäàâà ñå ïàïêà ñ èìå Ä - äà, ÷èñòî áúëãàðñêî Ä (äú). Íå å êîé çíàå êàêâî, íî âñå ïàê ùå ìè å èíòåðåñíî äà ãî îòñòðàíÿ, ïðèìåðíî ïðîâåðêà çà òåêñò ñòðèíã èëè...? Àìà êàòî íå çíàì êàêâî äà òúðñÿ...
ÅÄÈÒ: Òîçè ïðîáëåì ãî ðåøèõ. Äðóãèÿ îñòàâà.
2.Âòîðèÿò ïðîáëåì âå÷å å ìàëêî ïî-äîñàäåí è ìàé íÿìà âðúçêà ñ êîäà. Àêî ñòàðòèðàì ñêðèïòà îò êîíòåêñòíîòî ìåíþ íà êîÿ äà å ïàïêà/äèñê â ëåâèÿ åêñïëîðåð ïàíåë (folder tree) íÿìà ïðîáëåì, íî àêî ãî ñòàðòèðàì îò êîíòåêñòíîòî ìåíþ íà ñàìàòà ïàïêà/äèñê â äåñíèÿ ïàíåë ïîëó÷àâàì ñëåäíàòà ãðåøêà:
Ïðîáâàõ è ñ äðóãè ñêðèïòîâå åëèìèíèðàéêè 32 áèòîâîòî dll - ñúùàòà ðàáîòà. Àêî ïúê ñòàðòèðàì äèðåêòíî ðàáîòåù ñêðèï áåç àðãóìåíòè êàçâà, ÷å íå áèëî âàëèäíà 32 áèòîâà ïðîãðàìà...
Íî ïúê cmd-òî ñòàðòèðàíî îò ñúùîòî ìÿñòî ñè ðàáîòè. Ìàé ñàìî WSH íå ðàáîòè îò òàì.
Íÿêàêâè èäåè êàê äà ãî íàêàðàì äà òðúãíå îò òîçè êëþ÷
[HKEY_CLASSES_ROOT\Directory\Background\s hell] ?Last edited by WoW; 30th December 2009 at 05:40.




Reply With Quote
Lenovo ThinkPad 15 èëè IdeaPad 15
5th May 2023, 22:16 in Ìîáèëíè êîìïþòðè