fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Kopierer v.1.2

Uploader:	Unbekannt
Datum/Zeit:	16.02.2014 16:01:53

#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.Um das Programm zu beenden tippen sie bitte end ein:",a

If a = "end" then exit do



Input"Geben sie den Standort und den Namen von der Kopie an.Um das Programm zu beenden tippen sie bitte end ein",b

If b = "end" then exit do



IF FILECOPY(a, b) THEN

   PRINT "Fehler beim Kopieren von"+a+ "nach"+b

ELSE

   PRINT  a+"wurde nach "+b+"kopiert."

END IF



loop

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.