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
userspace:etu_notepad [2015/03/31 08:40]
Robert Tauber [control]
userspace:etu_notepad [2021/08/23 08:37] (current)
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 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 ====
Line 190: Line 139:
 ;----------------------------------------------------- ;-----------------------------------------------------
  Set $Part$ = "setup.exe"  Set $Part$ = "setup.exe"
- if FileExists("%ProgramFiles32Dir%\VideoLAN\vlc\uninstall.exe")+ if FileExists("%ProgramFiles32Dir%\Notepad++\uninstall.exe")
  Winbatch_uninstall  Winbatch_uninstall
  subCheckExitCodeVLC  subCheckExitCodeVLC
userspace/etu_notepad.1427791231.txt.gz · Last modified: 2021/08/23 08:37 (external edit)