In Verzeichnis kopieren

Übersicht BlitzBasic Beginners-Corner

Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.

mabox

Betreff: In Verzeichnis kopieren

BeitragSo, Apr 29, 2007 10:11
Antworten mit Zitat
Benutzer-Profile anzeigen
So ich habe hier mal einen alten verbugten Code aus der Festplatte rausgefischt und ihn nochmal überarbeitet. Kann mir jemand sagen warum der mir nicht die Schriftart kopiert. Ich hab schon vieles ausprobiert und finde einfach keinen Fehler. Ich habe das Gefühl dass der mir etwas falsches aus den Kopierfunktionen ausgibt, er springt nämlich immer zu function fehlgeschlagen().
Code: [AUSKLAPPEN]
schriftartensuchenD = FileType("D:\WINDOWS\Fonts$")
schriftartensuchenC = FileType("C:\WINDOWS\Fonts$")

   If schriftartensuchenD = 1 Then kopierenD()
   If schriftartensuchenD = 2 Then kopierenD()
   
   If schriftartensuchenC = 1 Then kopierenC()
   If schriftartensuchenC = 2 Then kopierenC()
   
   If searchC = 1 Then erfolgreich()
   If searchC = 0 Then fehlgeschlagen()
   
   If searchD = 1 Then erfolgreich()
   If searchD = 0 Then fehlgeschlagen()


Function kopierenC()
   font$ = "armalite.ttf"
   ziel$ = "C:\WINDOWS\Fonts\armalite.ttf"
   CopyFile font$,ziel$
   searchC = FileType("C:\WINDOWS\Fonts\armalite.ttf")
   Return searchC
End Function

Function kopierenD()
   font$ = "armalite.ttf"
   ziel$ = "D:\WINDOWS\Fonts\armalite.ttf"
   CopyFile font$,ziel$
   searchD = FileType("D:\WINDOWS\Fonts\armalite.ttf")
   Return searchD
End Function

Function erfolgreich()
   Print "searchD ="+searchD
   Print "searchC ="+searchC
   Print "Setup erfolgreich !"
   Delay 2000
   End
End Function

Function fehlgeschlagen()
   Print "searchD ="+searchD
   Print "searchC ="+searchC
   Print "Setup fehlgeschlagen !"
   Delay 2000
   End
End Function
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl
Dönerfresser Homepage

Eingeproggt

BeitragSo, Apr 29, 2007 10:37
Antworten mit Zitat
Benutzer-Profile anzeigen
So wie ich das sehe, wird (egal ob af C: oder D: ) bei
Code: [AUSKLAPPEN]
font="armalite.ttf"
kein Pfad angegeben.

Und die Abfrage von FileType am Anfang würd ich auf
Code: [AUSKLAPPEN]
if schriftartensuchen<>0 Then kopieren()

ändern.
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9
 

ETsoftware

BeitragSo, Apr 29, 2007 10:38
Antworten mit Zitat
Benutzer-Profile anzeigen
Muss man bei Kopien nicht den gesamten Pfad angeben?

In der Online-Hilfe steht Datei evtl. mit Pfadangabe. Probiers doch
mal mit ganzem Pfad.
ETsoftware 2007

Smily

BeitragSo, Apr 29, 2007 10:52
Antworten mit Zitat
Benutzer-Profile anzeigen
Wenn du keinen Pfad angibst wird das Programmverzeichniss als Pfad verwendet.

Übirgens hat dein Hauptprogramm keine Variablen Search C bzw D
du solltest sowiso nicth für C und D zwei eigene Funktionen machen schreibe dir lieber eine, wo das Laufwerk als Parameter mitgegeben wird.

Gruß, Smily0412
Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org

Silver_Knee

BeitragSo, Apr 29, 2007 11:39
Antworten mit Zitat
Benutzer-Profile anzeigen
wo kommt dieses $ hinter fonts her?? bei mir ist da keins:
https://www.blitzforum.de/upload/file.php?id=1465

mabox

Betreff: Also

BeitragSo, Apr 29, 2007 12:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Also am Pfad liegts nicht. Den muss man nicht angeben, das hab ich schon ausprobiert und bei nem andern Prog gehts auch so.

Zitat:
if schriftartensuchen<>0 Then kopieren()
Das stimmt, das kann ich noch verbessern.

Das mit den Parametern für das Laufwerk ist auch eine gute Idee, werd ich ändern.

Das $ Hinter fonts kommt aus der Onlinehilfe. dort steht: Wert=FILETYPE (Datei$) . Mittlerweile hab ich auch schon gemerkt dass das $ ein Fehler war aber das Programm funktioniert immer noch nicht.
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl
Dönerfresser Homepage

mabox

Betreff: SHIT

BeitragSo, Apr 29, 2007 13:05
Antworten mit Zitat
Benutzer-Profile anzeigen
Oh man bin ich dumm !!!
Ist doch klar dass da steht Setup Fehlgeschlagen wenn es nur Laufwerk D gibt weil im Code steht
Code: [AUSKLAPPEN]
searchC = 0 Then fehlgeschlagen()
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl
Dönerfresser Homepage

mabox

BeitragSo, Apr 29, 2007 14:20
Antworten mit Zitat
Benutzer-Profile anzeigen
Also das Programm läuft jetzt aber ich will noch das verandern:
Smily0412 hat Folgendes geschrieben:

Übirgens hat dein Hauptprogramm keine Variablen Search C bzw D
du solltest sowiso nicth für C und D zwei eigene Funktionen machen schreibe dir lieber eine, wo das Laufwerk als Parameter mitgegeben wird.
Kann man eine Variable in einen Pfad einbauen oder brauche ich trotzdem noch zwei Pfade ?
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl
Dönerfresser Homepage
 

Dreamora

BeitragSo, Apr 29, 2007 14:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Ja kannst du.
Und das sogar ohne Trippelpost. Einfach mal in die Hilfe gucken wie man Strings zusammenfügt und du hast die Lösung.
Am besten du benutzt allgemein Mal die Suche und die Fähigkeit normaler Menschen zu lesen und verstehen anstatt zigfach zu Posten für Dinge die schon mehrfach durchgekaut wurden.

closed
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group