Seite 2 von 2
Verfasst: 28.10.2004 22:17
von opera.v
Naja, egal, wird schon keiner so böse sein und wirklich verbreiten will ich das Programm auch nicht, da ich ja noch gannnnnnz am Anfang bin
.
Und ja, ich nerviger User habe schon wieder eine noob Frage.
Also, ich möchte als Anhang alle Datein versenden die in einem bestimmten Ordner sind. Dacht ich mir, ist kein Problem, da schreib ich einfach:
attach$ ="Ordnername\"
Ging natürlich nicht, dann hab ich versucht zu schauen ob es den eine Dateiendung für Ordner gibt, leider nichts gefunden. Dann hab ich geschaut ob man Ordner unter Purbasic mit einer einfachen Methode Zippen kann, leider auch nichts gefunden,...und jetzt frag ich euch
Achja, in dem Ordner befinden sich verschiedene Unterordner dessen Namen immer unterschiedlich sein können, die enthaltenen Datein sind aber immer *.xml Datein.
Verfasst: 29.10.2004 08:49
von Danilo
wichtel hat geschrieben:die exe ist komprimiert, ein einfacher hex editor tut es nicht.
Aber man kommt an die strings schon ran.
Eine EXE (oder DLL) ist standardmässig nicht komprimiert.
Das kannst Du nur selbst machen, z.b. mit UPX - hat aber
nichts mit Verschlüsselung zu tun.
Verfasst: 29.10.2004 16:47
von opera.v
Naja, danke für die hilfe, aber das mit Verschlüsseln oder so ist mir für den Anfang jetzt doch zu kompliziert
Aber, wie kann ich statt nur einem Unterordner, alle auswählen, also ich hab jetzt:
attach$ ="Ordner\Unterordner\*.xml"
also schickt er jetzt alle *.xml datein in dem Unterordner mit, ich will aber, dass alle *.xml Datein aus allen Unterordnern mitgeschickt werden, nur dass mir die Namen der Unterordner "nicht bekannt" sind.
hab dann sowas wie attach$ ="Ordner\...\*.xml" versucht, ist natürlich nicht gegangen..also, wie könnte ich das angehen, zumindest ein tipp für einen eventuellen Befehl oder sowas wäre nett
Verfasst: 29.10.2004 17:12
von wichtel
Das ist nicht Aufgabe einen mail Programs.
Da musst du schon selbst vorher einen Dateiliste rekursiv erstellen und dann übergeben.
Verfasst: 29.10.2004 17:23
von Kristel
opera.v hat geschrieben:wie könnte ich das angehen, zumindest ein tipp für einen eventuellen Befehl oder sowas wäre nett
Wenn du mir sagst, ob es wichtig ist, dass die Ordnerstruktur
erhalten bleibt oder es egal ist wenn alle *.xml einfach so in
einem Archiv verschickt werden sollen, dann könnte ich dir ein Programm machen.
Verfasst: 29.10.2004 17:28
von wichtel
mein Angebot ist nicht so komfortabel wie das von Kristel, aber "zumindest ein tip"
Das Beispiel durchsucht alle Unterordner eines Ordners nach Dateien mit bestimmter Endung und speichert sie in einer LinkedList.
Gruß
Michael
Code: Alles auswählen
NewList files$()
#ext="jpg"
#startdir="c:\data"
Procedure olistdir(odir.s,orek)
ofile.s
opath.s
oext.s
opath=odir
onext=ExamineDirectory(orek,odir,"*.*")
While onext
onext=NextDirectoryEntry()
ofile=DirectoryEntryName()
Select onext
Case 2
Select ofile
Case "."
Case ".."
Default
olistdir(opath+"\"+ofile,orek + 1)
UseDirectory(orek)
EndSelect
Case 1
oext=GetExtensionPart(ofile)
;Debug oext
If LCase(oext)=#ext
AddElement(files$())
files$()=opath+"\"+ofile
EndIf
EndSelect
Wend
EndProcedure
ResetList(files$())
Debug "los gehts"
olistdir(#startdir,0)
Debug "fertig"
ForEach files$()
Debug files$()
Next
Verfasst: 30.10.2004 02:57
von Andre
pvmichael hat geschrieben:Na wenn das nicht wieder was geniales fürs Codearchiv ist
Keine Angst, wird gerade gespeichert.
Verfasst: 30.10.2004 12:41
von opera.v
nein, die Ordnerstruktur muss nicht erhalten bleiben und ich habs jetzt auch geschaft, danke an alle