vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Function für FoxPro in VB 
Autor: visualfx
Datum: 25.08.16 13:27

Hallo,

eigentlich ist dies ja ein VB6-Forum und ich hoffe, daß man deshalb diesen Thread wegen einer Frage zu VFP6 trotzdem nicht gleich schließt

OK, mit VFP6 kenne ich mich eigentlich sehr gut aus!

Leider nehmen die Befehle und Funktionen von VFP6 keine große Rücksicht auf die Groß-/Kleinschreibung von Dateinamen. Diesen "Wildwuchs" haben wir leider Microsoft zu verdanken!

Beispiel:

- ADIR( ... ) - liefert in einem Array alle Dateinamen immer komplett in Großbuchstaben!

- FCREATE( ... ) - erzeugt eine neue Datei, die Groß-/Kleinschreibung wird exakt übernommen!

- COPY FILE fileName1 TO fileName2 - falls fileName2 noch nicht existiert wird sie angelegt und zwar immer komplett klein geschrieben! falls fileName2 existiert wird sie überschrieben, aber die Groß-/Kleinschreibung von fileName2 wird beibehalten!

- RENAME fileName1 TO fileName2 - benennt eine Datei um, fileName2 wird aber immer komplett klein geschrieben!

Daher auch Dein Beispiel-Code:

a = fcreate("C:bBb.TxT")
= fclose(a)
copy file "alter Name" to "C:bBb.TxT"
delete file "alter Name"
- FCREATE erzeugt die Datei mit der gewünschten Groß-/Kleinschreibung
- FCLOSE schließt die Datei
- COPY FILE ... kopiert die alte Datei über die neue Datei
- DELETE FILE ... löscht die alte Datei

Was man eigentlich für Dein Code-Beispiel nur bräuchte, wäre eine FRENAME()-Funktion, die beim neuen Dateinamen die exakte Groß-/Kleinschreibung übernimmt. Die gibt es aber leider nicht!

Wenn Du also eine Datei umbenennen willst und beim neuen Dateinamen die Groß-/Kleischreibung vorgeben willst, mußt Du die Win32-API bemühen.

MoveFile, siehe hier: https://msdn.microsoft.com/de-de/library/windows/desktop/aa365239%28v=vs.85%29.aspx?f=255&MSPPError=-2147217396

Leider wieder ein bißchen typisch Microsoft, es gibt keine RenameFile-Funktion, sondern nur die MoveFile-Funktion!

Deklaration in VFP6:

DECLARE INTEGER MoveFile IN WIN32API;
        STRING oldFileName,;
        STRING newFileName
 
ret = MoveFile( "alter Name", "C:bBb.TxT" )
falls ret = 0 Fehler , falls ret != 0 alles OK

Falls das noch nicht die Lösung für Dein Problem sein sollte, poste bitte einfach die nächste Frage.

Gruß, Stefan

Beitrag wurde zuletzt am 25.08.16 um 13:48:38 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Function für FoxPro in VB4.957Helmut FoxPro24.08.16 13:24
Re: Function für FoxPro in VB3.755Blackbox24.08.16 15:12
Re: Function für FoxPro in VB3.674Helmut FoxPro24.08.16 15:44
Re: Function für FoxPro in VB3.827Blackbox24.08.16 17:17
Re: Function für FoxPro in VB3.901Helmut FoxPro24.08.16 17:43
Re: Function für FoxPro in VB3.732Blackbox24.08.16 18:52
Re: Function für FoxPro in VB3.674visualfx24.08.16 20:55
Re: Function für FoxPro in VB3.651Helmut FoxPro25.08.16 12:28
Re: Function für FoxPro in VB3.743visualfx25.08.16 12:43
Re: Function für FoxPro in VB3.666Helmut FoxPro25.08.16 12:44
Re: Function für FoxPro in VB3.737visualfx25.08.16 13:27
Re: Function für FoxPro in VB3.662Helmut FoxPro25.08.16 16:34
Re: Function für FoxPro in VB3.668visualfx25.08.16 17:18
Re: Function für FoxPro in VB3.796Helmut FoxPro25.08.16 17:27
Re: Function für FoxPro in VB3.815visualfx25.08.16 18:22
Re: Function für FoxPro in VB3.543Helmut FoxPro25.08.16 19:28
FindFirstFile + FindNextFile + FindClose 3.861visualfx25.08.16 19:53
Re: Function für FoxPro in VB3.715Helmut FoxPro26.08.16 11:42
weitere Datei-Information3.733visualfx26.08.16 16:36
Re: Function für FoxPro in VB3.626Helmut FoxPro30.08.16 10:59
Re: Function für FoxPro in VB3.694visualfx30.08.16 11:56
noch ein kleiner Nachtrag 3.631visualfx30.08.16 12:11
Re: Function für FoxPro in VB3.563Helmut FoxPro30.08.16 15:16
App-Entwicklung - welche IDE ???3.727visualfx30.08.16 16:03
Screen-Shot MobiOne !!!3.764visualfx30.08.16 16:20
Re: Function für FoxPro in VB3.774Helmut FoxPro30.08.16 16:22
Re: Function für FoxPro in VB3.616visualfx30.08.16 16:30
Re: Function für FoxPro in VB3.682Helmut FoxPro30.08.16 17:24
Re: Function für FoxPro in VB3.642visualfx30.08.16 18:26
So als Vorschlag:3.764Blackbox30.08.16 18:44
Re: So als Vorschlag:3.634visualfx30.08.16 19:06
Es ist umfangreich3.712Blackbox30.08.16 19:19
Hilfedatei ???3.748visualfx30.08.16 19:56
Warum? einfach Googlen3.696Blackbox30.08.16 21:24
Re: Warum? einfach Googlen3.655visualfx30.08.16 21:34
Re: Function für FoxPro in VB3.530Helmut FoxPro31.08.16 11:46
Re: Function für FoxPro in VB3.650Helmut FoxPro31.08.16 13:13
Re: Function für FoxPro in VB3.548Blackbox31.08.16 13:16
Re: Function für FoxPro in VB3.590Helmut FoxPro31.08.16 13:48
Re: Function für FoxPro in VB3.649Blackbox31.08.16 20:02
Re: Function für FoxPro in VB3.558Helmut FoxPro01.09.16 16:05
Re: Function für FoxPro in VB3.590Helmut FoxPro01.09.16 17:31
Re: Function für FoxPro in VB3.610Blackbox01.09.16 20:02
Re: Function für FoxPro in VB3.674Helmut FoxPro02.09.16 16:39
Fix und fertiger TreeView für Laufwerke / Ordner / Dateien3.761visualfx02.09.16 18:35
Re: Function für FoxPro in VB3.745Helmut FoxPro06.09.16 13:25
Re: Function für FoxPro in VB3.591visualfx06.09.16 14:11
Re: Function für FoxPro in VB3.591Helmut FoxPro12.09.16 15:33
Re: Function für FoxPro in VB3.618visualfx12.09.16 16:14
Re: Function für FoxPro in VB3.527Helmut FoxPro12.09.16 16:22
Re: Function für FoxPro in VB3.538visualfx12.09.16 17:26

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel