fb:porticula NoPaste
KOPIERER V.1.1
| Uploader: | Unbekannt | 
| Datum/Zeit: | 16.02.2014 15:46:43 | 
#INCLUDE "file.bi"
dim a as String
Dim b as String
Dim c as String
Dim x as Integer
do
Input"Geben sie den Standort von der zu Kopierenden Datei an:",a
If a = "end" then end
Input"Geben sie den Standort und den Namen von der Kopie an:",b
If a = "end" then end
IF FILECOPY(a, b) THEN
   PRINT "Fehler beim Kopieren von"+a+ "nach"+b
ELSE
   PRINT  a+"wurde nach "+b+"kopiert."
END IF
loop
	


			FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!


