vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
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.591Helmut FoxPro24.08.16 13:24
Re: Function für FoxPro in VB3.534Blackbox24.08.16 15:12
Re: Function für FoxPro in VB3.424Helmut FoxPro24.08.16 15:44
Re: Function für FoxPro in VB3.588Blackbox24.08.16 17:17
Re: Function für FoxPro in VB3.637Helmut FoxPro24.08.16 17:43
Re: Function für FoxPro in VB3.512Blackbox24.08.16 18:52
Re: Function für FoxPro in VB3.429visualfx24.08.16 20:55
Re: Function für FoxPro in VB3.436Helmut FoxPro25.08.16 12:28
Re: Function für FoxPro in VB3.535visualfx25.08.16 12:43
Re: Function für FoxPro in VB3.442Helmut FoxPro25.08.16 12:44
Re: Function für FoxPro in VB3.510visualfx25.08.16 13:27
Re: Function für FoxPro in VB3.451Helmut FoxPro25.08.16 16:34
Re: Function für FoxPro in VB3.458visualfx25.08.16 17:18
Re: Function für FoxPro in VB3.528Helmut FoxPro25.08.16 17:27
Re: Function für FoxPro in VB3.582visualfx25.08.16 18:22
Re: Function für FoxPro in VB3.336Helmut FoxPro25.08.16 19:28
FindFirstFile + FindNextFile + FindClose 3.636visualfx25.08.16 19:53
Re: Function für FoxPro in VB3.509Helmut FoxPro26.08.16 11:42
weitere Datei-Information3.501visualfx26.08.16 16:36
Re: Function für FoxPro in VB3.413Helmut FoxPro30.08.16 10:59
Re: Function für FoxPro in VB3.463visualfx30.08.16 11:56
noch ein kleiner Nachtrag 3.424visualfx30.08.16 12:11
Re: Function für FoxPro in VB3.347Helmut FoxPro30.08.16 15:16
App-Entwicklung - welche IDE ???3.516visualfx30.08.16 16:03
Screen-Shot MobiOne !!!3.541visualfx30.08.16 16:20
Re: Function für FoxPro in VB3.539Helmut FoxPro30.08.16 16:22
Re: Function für FoxPro in VB3.403visualfx30.08.16 16:30
Re: Function für FoxPro in VB3.430Helmut FoxPro30.08.16 17:24
Re: Function für FoxPro in VB3.427visualfx30.08.16 18:26
So als Vorschlag:3.525Blackbox30.08.16 18:44
Re: So als Vorschlag:3.409visualfx30.08.16 19:06
Es ist umfangreich3.444Blackbox30.08.16 19:19
Hilfedatei ???3.540visualfx30.08.16 19:56
Warum? einfach Googlen3.458Blackbox30.08.16 21:24
Re: Warum? einfach Googlen3.445visualfx30.08.16 21:34
Re: Function für FoxPro in VB3.321Helmut FoxPro31.08.16 11:46
Re: Function für FoxPro in VB3.436Helmut FoxPro31.08.16 13:13
Re: Function für FoxPro in VB3.337Blackbox31.08.16 13:16
Re: Function für FoxPro in VB3.382Helmut FoxPro31.08.16 13:48
Re: Function für FoxPro in VB3.440Blackbox31.08.16 20:02
Re: Function für FoxPro in VB3.333Helmut FoxPro01.09.16 16:05
Re: Function für FoxPro in VB3.378Helmut FoxPro01.09.16 17:31
Re: Function für FoxPro in VB3.384Blackbox01.09.16 20:02
Re: Function für FoxPro in VB3.453Helmut FoxPro02.09.16 16:39
Fix und fertiger TreeView für Laufwerke / Ordner / Dateien3.550visualfx02.09.16 18:35
Re: Function für FoxPro in VB3.531Helmut FoxPro06.09.16 13:25
Re: Function für FoxPro in VB3.377visualfx06.09.16 14:11
Re: Function für FoxPro in VB3.378Helmut FoxPro12.09.16 15:33
Re: Function für FoxPro in VB3.405visualfx12.09.16 16:14
Re: Function für FoxPro in VB3.316Helmut FoxPro12.09.16 16:22
Re: Function für FoxPro in VB3.329visualfx12.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-2024 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