Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Pille95
Anmeldungsdatum: 11.10.2008 Beiträge: 48 Wohnort: Kuhdorf
|
Verfasst am: 21.10.2008, 20:33 Titel: FILECOPY?! |
|
|
hallo erstmal...
ich habe folgendes problem: und zwar möchte ich mit free basic ein programm erstellen das einen bereits bestehenden ordner oder eine datei in einen anderen ordner kopiert... ich habe mal in der befehlsreferenz geschaut und auch im forum gesucht bin aber leider nicht fünig geworden kann mir jemand helfen?! |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 21.10.2008, 20:46 Titel: |
|
|
ordner kopieren gibbet nicht.
Code: |
dim as string infolder = "C:\folder1\", outfolder = "C:\folder2\"
dim as string file = Dir(infolder & "*.*")
while file <> ""
filecopy infolder & file, outfolder & file
file = dir
wend
|
_________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
Pille95
Anmeldungsdatum: 11.10.2008 Beiträge: 48 Wohnort: Kuhdorf
|
Verfasst am: 22.10.2008, 16:21 Titel: |
|
|
man kann aber auch dateien kopieren die in unterordner gespeichert sind... also nicht direkt aus C:\datei.txt sondern C:\ornder\datei.txt
funktioniert das?Ich versteh den code net so ganz.. was is da jetzt datei un was zielordner? |
|
Nach oben |
|
 |
Cherry
Anmeldungsdatum: 20.06.2007 Beiträge: 249
|
Verfasst am: 22.10.2008, 16:48 Titel: |
|
|
Unter Windows ja, mit SHFileOperation. |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 22.10.2008, 16:53 Titel: |
|
|
Zitat: | Ich versteh den code net so ganz.. was is da jetzt datei un was zielordner? |
ein bisschen englisch sollte man schon können. File = Datei (der Dateiname, der kopiert werden soll), InFolder = Eingabeverzeichnis, OutFolder = Ausgabeverzeichnis
Mit unterordnern geht das auch (ungetestet):
Code: | dim as string infolder = "C:\folder1\", outfolder = "C:\folder2\"
Sub Copyfolder(InFolder As String, OutFolder As String)
'erst alle Dateien rüberschaufeln
If Right(InFolder, 1) <> "\" And Right(InFolder, 1) <> "/" Then InFolder &= "\"
If Right(OutFolder, 1) <> "\" And Right(OutFolder, 1) <> "/" Then OutFolder &= "\"
Dim As String file = Dir(InFolder & "*.*")
while file <> ""
filecopy InFolder & file, OutFolder & file
file = dir
wend
'jetzt die unterordner
Dim As String file = Dir(InFolder & "*", &H10)
while file <> ""
Copyfolder Infolder & file, Outfolder & file
file = dir
wend
End Sub |
_________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
Pille95
Anmeldungsdatum: 11.10.2008 Beiträge: 48 Wohnort: Kuhdorf
|
Verfasst am: 22.10.2008, 17:55 Titel: |
|
|
ich verfüge schon über gewisse grundkenntise der englischen sprache xD verstehe nur nicht wo ich das einstzen soll.. der ordner in der die datei gespeicher ist.. und der ordner in den die datei kopiert werden soll ist klah... nur nicht wo der dateiname eingegeben wird...?  |
|
Nach oben |
|
 |
frebas
Anmeldungsdatum: 20.06.2008 Beiträge: 245
|
Verfasst am: 22.10.2008, 18:05 Titel: |
|
|
Es werden doch alle Dateien kopiert: *.*
Die Sternchen stehen für eine beliebige anzahl an Zeichen
Ich hab aber auch eine Frage:
kann man auch einfach nur ein * als Dateinamen nemen weil es ja auch Dateien ohne Dateiendung bzw. Punkt gibt? |
|
Nach oben |
|
 |
Pille95
Anmeldungsdatum: 11.10.2008 Beiträge: 48 Wohnort: Kuhdorf
|
Verfasst am: 22.10.2008, 18:09 Titel: |
|
|
?!?! zwischen *.* der dateiname?
also *datei.txt*? |
|
Nach oben |
|
 |
frebas
Anmeldungsdatum: 20.06.2008 Beiträge: 245
|
Verfasst am: 22.10.2008, 18:14 Titel: |
|
|
NEIN! anstatt dem "*.*" schreibst du "datei.txt".
Guck doch mal in die Befehlsreferenz da steht auch immer viel. |
|
Nach oben |
|
 |
Pille95
Anmeldungsdatum: 11.10.2008 Beiträge: 48 Wohnort: Kuhdorf
|
Verfasst am: 22.10.2008, 18:19 Titel: |
|
|
aso okee... danke jetzt hab ich es verstanden...
lol.. da hab ich schon unter FILECOPY geschaut.. hab aber halt net verstanden.. |
|
Nach oben |
|
 |
Pille95
Anmeldungsdatum: 11.10.2008 Beiträge: 48 Wohnort: Kuhdorf
|
Verfasst am: 22.10.2008, 18:43 Titel: |
|
|
ist es eig möglich eine email mit dateianhang zu verschicken... also mit freebasic wenn das jemand wüsste... #_# das wäre subba-- xD
kopieren funktioniert....
xD |
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 22.10.2008, 19:54 Titel: |
|
|
Ja klar geht das. Erst stellst du über Sockets eine Verbindung z.B. zu einem SMTP- oder POP3-Server her, meldest dich dort ganz einfach an und sendest deine Mail als Multipart-Mail, halt nach MIME-Standard.
Sorry dass der Satz nur aus fachbegriffen versteht, aber die sind 100% korrekt und ich wollte dich damit nur zum aufgeben bringen.
Sorry, aber ich bezweifle, dass du mit zarten 13 jahren in der lage bist, sämtliche Standards verschiedenster Mail-protokolle mal eben in FreeBasic runterzucoden. _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
Pille95
Anmeldungsdatum: 11.10.2008 Beiträge: 48 Wohnort: Kuhdorf
|
Verfasst am: 22.10.2008, 20:40 Titel: |
|
|
ja ist schon klar... xD |
|
Nach oben |
|
 |
frebas
Anmeldungsdatum: 20.06.2008 Beiträge: 245
|
Verfasst am: 22.10.2008, 20:46 Titel: |
|
|
frebas hat Folgendes geschrieben: |
Ich hab aber auch eine Frage:
kann man auch einfach nur ein * als Dateinamen nemen weil es ja auch Dateien ohne Dateiendung bzw. Punkt gibt? |
|
|
Nach oben |
|
 |
Jojo alter Rang

Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 22.10.2008, 21:33 Titel: |
|
|
das ist total egal, hättest du es ausprobiert, wüsstest du aber schon längst die antwort. *.* ist aber üblicher und ist auch für dateien ohne erweiterung geeignet. _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
Nach oben |
|
 |
|