E-mail versenden

[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.

[Danilo]

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.

[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

[wichtel]

Das ist nicht Aufgabe einen mail Programs.
Da musst du schon selbst vorher einen Dateiliste rekursiv erstellen und dann übergeben.

[Kristel]

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.

[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
  

[Andre]

Na wenn das nicht wieder was geniales fürs Codearchiv ist

Keine Angst, wird gerade gespeichert.

[opera.v]

nein, die Ordnerstruktur muss nicht erhalten bleiben und ich habs jetzt auch geschaft, danke an alle