Results 1 to 1 of 1

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    If it ain't broke o/c it WoW's Avatar
    Join Date: Jun:2004
    Location: Motor City
    Posts: 1,980

    Ìàëêî ïîìîù, ìîëÿ!

    Íàìåðèõ åäèí 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
    Ñòàðòèðà ñå ñ òåçè êëþ÷îâå â ðåãèñòúðà:
    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\""
    Íå ñå ó÷óäâàéòå íà 32 áèòîâîòî wscript.exe. Ñ W7 õ64 ñúì, à êîäà ïîëçâà åäíà ñòàðà 32 áèòîâà áèáëèòåêà (íÿìà 64 áèòîâ àíàëîã), ðàçøèðÿâàùà âúçìîæíîñòèòå íà WSH äà êîìóíèêèðà ñ êëèïáîðäà.
    Òà åòî ãè è áúã÷åòàòà:
    1. Àêî â êëèïáîðäà èìà íå òåêò, à ôàéë ïðèìåðíî, ñúçäàâà ñå ïàïêà ñ èìå Ä - äà, ÷èñòî áúëãàðñêî Ä (äú). Íå å êîé çíàå êàêâî, íî âñå ïàê ùå ìè å èíòåðåñíî äà ãî îòñòðàíÿ, ïðèìåðíî ïðîâåðêà çà òåêñò ñòðèíã èëè...? Àìà êàòî íå çíàì êàêâî äà òúðñÿ...
    ÅÄÈÒ: Òîçè ïðîáëåì ãî ðåøèõ. Äðóãèÿ îñòàâà.

    2.Âòîðèÿò ïðîáëåì âå÷å å ìàëêî ïî-äîñàäåí è ìàé íÿìà âðúçêà ñ êîäà. Àêî ñòàðòèðàì ñêðèïòà îò êîíòåêñòíîòî ìåíþ íà êîÿ äà å ïàïêà/äèñê â ëåâèÿ åêñïëîðåð ïàíåë (folder tree) íÿìà ïðîáëåì, íî àêî ãî ñòàðòèðàì îò êîíòåêñòíîòî ìåíþ íà ñàìàòà ïàïêà/äèñê â äåñíèÿ ïàíåë ïîëó÷àâàì ñëåäíàòà ãðåøêà:



    Ïðîáâàõ è ñ äðóãè ñêðèïòîâå åëèìèíèðàéêè 32 áèòîâîòî dll - ñúùàòà ðàáîòà. Àêî ïúê ñòàðòèðàì äèðåêòíî ðàáîòåù ñêðèï áåç àðãóìåíòè êàçâà, ÷å íå áèëî âàëèäíà 32 áèòîâà ïðîãðàìà...
    Íî ïúê cmd-òî ñòàðòèðàíî îò ñúùîòî ìÿñòî ñè ðàáîòè. Ìàé ñàìî WSH íå ðàáîòè îò òàì.
    Íÿêàêâè èäåè êàê äà ãî íàêàðàì äà òðúãíå îò òîçè êëþ÷
    [HKEY_CLASSES_ROOT\Directory\Background\s hell] ?
    Attached Thumbnails Attached Thumbnails Click image for larger version. 

Name:	error.jpg‎ 
Views:	177 
Size:	78.7 KB 
ID:	26245  

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè