User Tools

Site Tools


userspace:etu_notepad

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
Next revision
Previous revision
Next revision Both sides next revision
userspace:etu_notepad [2015/03/31 08:39]
Robert Tauber [Copy.exe / Copy.au3]
userspace:etu_notepad [2015/04/03 10:49]
Robert Tauber [Copy.exe / Copy.au3]
Line 15: Line 15:
  
 Tree (Q:\Notepad++):\\ Tree (Q:\Notepad++):\\
-Copy.exe\\+[[Copy.exe]] (Für *.exe)\\ 
 Notepad++\npp.#.#.#.Installer.exe\\ Notepad++\npp.#.#.#.Installer.exe\\
  
Line 46: Line 46:
 productClasses:  productClasses: 
 setupScript: setup.ins setupScript: setup.ins
-uninstallScript: +uninstallScript: uninstall.ins
 updateScript:  updateScript: 
 alwaysScript:  alwaysScript: 
Line 66: Line 66:
 </code> </code>
  
-==== Copy.exe / Copy.au3 ==== 
-Kopieren und Umbenennen \\ 
-//Später ermitteln der Version Nummer// 
  
-<code autoit> 
-#include <File.au3> 
-#include <Array.au3> 
- 
-;RT: Wo binn ich / Wo sol es denn hin 
-Local $sPath = @ScriptDir 
-Local $aPath = StringSplit( @ScriptDir, "\" ) 
-Local $sPathTo = "C:\Temp\" & $aPath[$aPath[0]] ;RT: Zielordner auf dem Client 
-local $extention = ".exe" ;RT: welche Dateien sollen umbenannt werden *.exe 
- 
-;RT: Zur Kontrolle 
-;_ArrayDisplay($sFolderList, "$Folderolder") 
-;MsgBox ( 1, "Zeil Pfad", $sPathTo  ) 
- 
-;RT: Erstmal aufräumen 
-DirRemove ( $sPathTo , 1 ) 
- 
-;RT: Wie sehen meine Ordner aus 
-Local $sFolderList = _FileListToArray($sPath , "*" , 2 ) 
-local $i = 0 
- 
-;RT: Jetzt Ordner für ordner 
-For $i = 1 to $sFolderList[0] 
-   ;RT: Was gibt es im aktuellen ordner 
-   Local $sFileList = _FileListToArray($sPath & "\" & $sFolderList[$i]  , "*" & $extention , 1 ) 
-   ;RT: Umbennenenen der *.[$extention] 
-   if $sFileList <> 0 Then 
-   if $sFileList[0] = 1 Then 
- ;_ArrayDisplay($sFileList, "$sFileList") 
- $sFrom = $sPath & "\" & $sFolderList[$i] & "\" & $sFileList[$sFileList[0]] 
- $sTo = $sPathTo & "\" & $sFolderList[$i] &  $extention 
- FileCopy ( $sFrom, $sTo, 9 ) 
- ;DirRemove ( $sFrom ,1 ) 
- ;MsgBox ( 1, "OK", $sFrom & " => " & $sTo & "  " & @error ) 
-   Else 
- MsgBox ( 1, "ERROR", "Mehr als ein Subfolder in: " & $sPath & "\" & $sFolderList[$i]  ) 
- _ArrayDisplay($sFileList, "$sFileList") 
-   EndIf 
-   Else 
-   ;MsgBox ( 1, "No Subfolders in: ", $sPath & "\" & $sFolderList[$i]  ) 
-   endif 
-Next 
- 
-Exit 
- 
- 
- 
-</code> 
  
 ==== setup.ins ==== ==== setup.ins ====
userspace/etu_notepad.txt · Last modified: 2021/08/23 08:37 (external edit)