Das ist der Inhalt des Clipboards, wenn du auf einem Button das Kontextmenu öffnest und "Kopieren" auswählst.Peter wrote:b) Wo kann ich zu "TOTALCMD#BAR#DATA" nachlesen? Ich kann zwar die Buttonbar über Dialog und über BAR-File ändern, aber die Codeanwendung ist mir fremd.
Umgekehrt kann man auch den Text im Code-Block markieren, kopieren, und dann im Kontextmenu der Buttonbar "Einfügen" ausführen.
Simple Methode um Buttons nicht aus dem Forum abschreiben zu müssen.
![Wink ;)](./images/smilies/icon_wink.gif)
Tja, dann kommen wir mal zu den Komfortfunktionena) ist es möglich, dass statt "xx" der Anwender nach einem String gefragt wird und dann dieser String verwendet wird:
Eingabe: "hallo"
Ergebnis: hallo-100, hallo-105, ...
![Wink :wink:](./images/smilies/icon_wink.gif)
CreateFolders.vbs:
Code: Select all
'TotalCommander Button um Verzeichnisse anzulegen
'Kommando : <Pfad>\CreateFolders.vbs
'Parameter : Template.dir "%P"
'Startpfad : <Pfad>\
'Icondatei : WScript.exe
'Tooltip : Erzeuge Template Verzeichnisse
'Die Vorlagendatei "Template.dir" muss im Verzeichnis "<Pfad>" liegen
'
Const FOR_READING = 1
Set WshShell = WScript.CreateObject("WScript.Shell" )
Set oArgs = WScript.Arguments
If WScript.arguments.Count > 1 Then
sDirList = oArgs.Item(0)
sDestPath = oArgs.Item(1)
sPrefix = InputBox ("Bitte einen Prefix für die neuen Verzeichnisse angeben"_
,"CreateFolders.vbs"_
,"xxxxxx"_
)
If sPrefix = vbNullString Then WScript.Quit (1)
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(sDirlist) Then
Set oTextStream = oFSO.OpenTextFile(sDirList,FOR_READING)
Do Until oTextStream.AtEndOfStream
sLine = oTextStream.ReadLine
sfolder = sDestpath & "" & sPrefix & sLine
If Not oFSO.FolderExists(sfolder) Then
oFSO.CreateFolder(sfolder)
End If
Loop
oTextStream.Close
Else
WScript.Echo "Input file " & sDirlist & " nicht gefunden."
End If
else
WScript.Echo "Fehlende Parameter"
End If
Code: Select all
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Scripts\CreateFolders.vbs
Template.dir "%P"
WScript.exe
Erzeuge Template Verzeichnisse
%COMMANDER_PATH%\Scripts\
-1
Code: Select all
-100
-101
-102
-200
-201
-205
-300
Holger