Wie Verzeichnis umbenennen?

[JörgG]

Hi, ich trau mich garnicht, hier diese Frage zu stellen, benutze xProfan8 & finde für diesen Zweck einfach nicht die passende Sytax (weder in der Hilfe noch hier im Forum) habe das vor lauter Verzweiflung erstmal mit einen Batchaufruf gelöst:

@winexecwait("cmd.exe /c ren " + chr$(34) + "Pfad\alterName" + chr$(34) + " neuerName",0)

aber das muß doch iwie auch mit xProfan direkt gehen, oder?
Gruß Jörg

[GAST-0815]

Hallo Jörg,
es sollte auch in der Hilfe von XProfan 8 stehen.

RmDir S seit Version 1.x

S : String - Verzeichnisnamen

Das Verzeichnis S wird gelöscht. Enthält es noch Dateien oder Unterverzeichnisse, kann es nicht gelöscht werden. Bei erfolgreicher Operation hat %IOResult den Wert 0.

Mfg

Edit: Sorry, war mal wieder zu schnell. Umbenennen nicht löschen!

[JörgG]

Nun, diesen Befehl habe ich schon gefunden, aber ich möchte das Verzeichnis ja nicht löschen, sondern vorrübergehend umbenennen und nach getaner Arbeit wieder in seinen alten Namen benennen.
Also nicht RM sondern REN
Gruß Jörg

[AHT]

Rename #N,S ?

[GAST-0815]

Habe hier eine PrFellow Vorlage gefunden.
Vielleicht hilft es dir.

' PRFellow- Vorlage
' Autor: Thomas Hölzer
' Ordner umbenennen
' Bitte erst einen Ordner C:\BLA anlegen!
' Falls der Zielname bereist existiert, wird eine Fehlermeldung ausgegeben

Def SHFileOperation(1) !"SHELL32","SHFileOperationA"
Declare opstruct#,dir#,newdir#

Proc Rename32
 ' Benennt im Parameter (1) angegebenen Ordner in Parameter (2) um
 Parameters dir$,newdir$
	Dim opstruct#,30
	Dim dir#,Add(Len(dir$),2)
	' Bei dieser Funktion sicherheitshalber Platz für 2(!) Null-Bytes lassen
	String dir#,0=Add$(dir$,Chr$(0))
 Dim newdir#,Add(Len(newdir$),2)
	String newdir#,0=Add$(newdir$,Chr$(0))
	Long opstruct#,0=GetActiveWindow()  ' Handle des aufrufenden Fensters
	Long opstruct#,4=4											' FO_RENAME
	' Long opstruct#,4=1									 ' FO_MOVE - Verschieben
	Long opstruct#,8=dir#  							' pfrom : Ursprungsname
	Long opstruct#,12=newdir#    	' pto Zielname
	Word opstruct#,16=0
	Long opstruct#,18=0
	Long opstruct#,22=0
	Long opstruct#,26=0
	If Gt(ShFileOperation(opstruct#),0)
         MessageBox("Es ist ein Fehler aufgetreten","ShFileOperation",16)
	EndIf
	Dispose dir#
	Dispose newdir#
	Dispose opstruct#
EndProc

'Beispiel
''Cls
''Rename32 "C:\BLA","C:\BLA_NEU"

Mfg

[JörgG]

rename #N,S
funktioniert doch nur bei Dateien, oder? Jedenfalls ist es mir bei Verzeichnissen nicht gelungen (habe ich natürlich schon probiert, bevor ich gepostet hab )
Gruß Jörg

[AHT]

Hast recht, habe was überlesen .
Probier mal das (ungetestet):

External("kernel32","MoveFileA",addr(Quelle$),addr(Ziel$))

[JörgG]

@AHT,

External("kernel32","MoveFileA",addr(Quelle$),addr(Ziel$))

hat gefunzt! Danke!! Aber wo hast du das denn ausgegraben, wo steht das?
Was habe ich da jetzt eigentlich aufgerufen?

@GAST-0815,
Danke für den Code-Schnipsel
aber was sind PRFellow-Vorlagen & wie werden sie in den Quelltext eingebunden, diese Vorlagen sind doch nicht in Profan geschrieben?

Gruß Jörg

[horsthorn]

Mit dieser Mehrfach-INCLUDE kannst du problemlos umbenennen
PS: Der Code ist nicht von mir. Daher ist er perfekt !

DEF SHFileOperation(1) !"SHELL32","SHFileOperationA"

PROC MEHRFACH_AKTION
Parameters Action$,File$,File2$,noconfirm%,norecycle%
'Messagebox(file$,file2$,64)
'programm_ende
' Parameter 1: Auszuführende Aktion=COPY, DELETE, RENAME, MOVE
' Parameter 2: Quelldatei
' Parameter 3: Zielldatei
' Parameter 4: 0 = User erst fragen, 1= ohne Nachfrage löschen
' Parameter 5: 0 = In Papierkorb verschieben, 1= "endgültig" löschen
Declare FOF_Flag%,Action&,DO%,Fehler&
Declare opstruct#,file#,file2#
DO%=0
IF upper$(Action$)="RENAME"
Action&=4
elseIF upper$(Action$)="COPY"
Action&=2
elseIF upper$(Action$)="MOVE"
Action&=1
elseIF upper$(Action$)="DELETE"
Action&=3
else
messagebox("Diese Funktion ist nicht bekannt!","Aktion wird nicht ausgeführt!",64)
DO%=1
endif
IF DO%=0
Case noconfirm% : noconfirm%=16
CaseNot norecycle% : norecycle%=64
FOF_Flag% = (noconfirm%+norecycle%)
Dim opstruct#,60
Dim file#,(Len(file$)+2)
Dim file2#,(Len(file2$)+2)
String file#,0=(file$+Chr$(0))
String file2#,0=(file2$+Chr$(0))
Long opstruct#,0=%hwnd ' Handle des aufrufenden Fensters
Long opstruct#,4=Action&
Long opstruct#,8=file# ' pfrom : hier der zu löschende Ordner
Long opstruct#,12=file2# ' pto (muß 0 oder eine Bereichvar. mit Zieldateinamen ' z.B. bei Umbenennung sein
Word opstruct#,16=FOF_Flag%
Long opstruct#,18=0 ' Hier steht nach dem Aufruf 1, wenn User abgebrochen hat
Long opstruct#,22=0 ' Unbedingt immer auf Null setzen!
Long opstruct#,26=0 ' Zeiger(Bereich) auf Überschrift des Fortschrittsdialogs
FEHLER&=ShFileOperation(opstruct#)
IF (long(opstruct#,18)=1)
MessageBox("Die Dateioperation wurde abgebrochen!","Operation abgebrochen!",64)
ELSEIF (Fehler& <> 0)
MessageBox("Es ist ein Fehler aufgetreten","ShFileOperation "+str$(Fehler&),16)
EndIf
Dispose file#
Dispose file2#
Dispose opstruct#
ENDIF
ENDPROC

'Beispiel-Aufruf:
mehrfach_aktion "RENAME","C:\\TEMP","C:\\TEMP01",1,0

Viel Erfolg !

[AHT]

Zitat von Jörg

@AHT,

External("kernel32","MoveFileA",addr(Quelle$),addr(Ziel$))

hat gefunzt! Danke!! Aber wo hast du das denn ausgegraben, wo steht das?
Was habe ich da jetzt eigentlich aufgerufen?

Das ist API Programmierung.

[JörgG]

wow! -
das war also meine 1. API-Programmierung!
Inzwischenn habe ich die external-funktion nachgeschlagen, demnach heißt die API-dll also 'kernel32', richtig?
Und diese enthält unter anderen die Funktion 'MoveFileA', die mit den Parametern addr (quelle$), addr (ziel$) aufgerufen wird, richtig?

D.h. um solche dll's zu benutzen, muß ich vorher ihre Doku haben, um zu wissen, wie die Aufruf-Syntax lautet. Und wo finde ich z.b. die Doku von der 'kernel32' (ich meine in deutsch, da englisch nicht gerade meine Stärke ist )

@horsthorn,
Danke für die PROC MEHRFACH_AKTION. Beinhaltet ja alles, was man bei Verzeichnis-Operationen oft braucht. Was bewirkt aber die Zeile:

DEF SHFileOperation(1) !"SHELL32","SHFileOperationA"

Das sieht doch wieder nach dll-Aufruf aus, aber die proc kann ich doch intern einfach mit ihren Namen aufrufen?

Sorry, falls ich nerve, aber mir fehlt hier & da noch ein wenig Erfahrung, obwohl ich schon länger Programmiere .
Dank euch allen für die nützlichen Hinweise
Gruß Jörg

[horsthorn]

Die Defination brauchst du.

Innerhalb der PROC wird sie aufgerufen...

FEHLER&=ShFileOperation(opstruct#)

Du kannst mit den 4 Funktionen Dateien und Ordner bearbeiten. Es spielt dabei keine Rolle, ob in dem Ordner noch ein Ordner und Dateien vorhanden sind !

Also Vorsicht beim Löschen "DELETE" !
Mit den letzten zwei Parametern kannst du die Sicherheitsfrage und den Papierkorb steuern

[Frabbing]

D.h. um solche dll's zu benutzen, muß ich vorher ihre Doku haben, um zu wissen, wie die Aufruf-Syntax lautet. Und wo finde ich z.b. die Doku von der 'kernel32' (ich meine in deutsch, da englisch nicht gerade meine Stärke ist )

Die offiziellen Beschreibungen sind in der Regel aber in Englisch geschrieben. Du kannst die Seite aber übersetzen lassen, z.B.: Google Übersetzer

Im VB-Sektor gibt es viele deutsche Beschreibungen zu API: vb@rchiv · API-Referenz · Übersicht

[JörgG]

Danke für die Starthilfe, war für mich sehr wertvoll. Werde das alles durchackern.
Werde mir jetzt erstmal das Lehrbuch von Dietmar runterladen, ich schätze, daß ich in diesen Meisterwerk die Antworten auf meine meisten Fragen finden werde. Wenn's dann konkret klemmt, weiß ich ja wo mir geholfen wird
Nochmals Danke!
Gruß Jörg

[GAST-0815]

Zitat von Jörg

@GAST-0815,
Danke für den Code-Schnipsel
aber was sind PRFellow-Vorlagen & wie werden sie in den Quelltext eingebunden, diese Vorlagen sind doch nicht in Profan geschrieben?

Gruß Jörg

PRFellow ist eine IDE für XProfan.Zwar schon etwas älter und wird auch nicht mehr weiter entwickelt aber immer noch verwendbar.Du kannst PRFellow ja mal ausprobieren. http://www.prfellow.bplaced.de/prfellow-2001.exe

MFG