PDA

Vollständige Version anzeigen : Unterscheidet VB6.0 Groß- und Kleinschreibbung ???


AWSW
29.07.2001, 00:22
Nabend :)

Eine Frage habe ich zum unten aufgeführten Code. Unterscheidet VB6.0 Groß- und Kleinschreibbung ??? Wenn ich im Code die "Send.dat" oder "Sendsa.dat" mit dem 1. Buchstaben groß oder klein schreibe, dann findet der DIR Befehl die Dateien nur, wenn die Groß-/Kleinschreibung exakt übereinstimmt... Kann man dass auch umgehen, so dass die 2 immer in dem Verzeichnis angelegten Dateien gefunden werden, egal ob groß oder klein geschrieben ???

---------------------------------------------
Attribute VB_Name = "DateiVorhanden"
Option Explicit

Private Sub Main()
Dim Mldg, Stil, Titel, Antwort, Erg1, Erg2

Erg1 = Dir("C:\TAP\ADMIN\FT\Send.dat")
Erg2 = Dir("C:\TAP\ADMIN\FT\Sendsa.dat")

If Erg1 = "send.dat" Or Erg2 = "sendsa.dat" Then

Mldg = "Sie haben TKNs und/oder Service Aufträge bereitgestellt. Diese müssen nur noch übertragen werden." & Chr(13) & Chr(13) & "Eine Übertragung ist über LAN, Corina oder Modem möglich." & Chr(13) & Chr(13) & Chr(13) & Chr(13) & "Möchten Sie die zu übertragenden Dateien aus dem Service Auftrag oder TKN - Tool jetzt senden ???"
Stil = vbQuestion + vbYesNo + vbDefaultButton1
Titel = "Sollen die Dateien aus dem TKN- und dem Service Auftrag - Tool jetzt übertragen werden ???"
If MsgBox(Mldg, Stil, Titel) = vbYes Then
Call Shell("C:\TAP\ADMIN\UTILITY\TAPFT.EXE /eb", 1)
End If
Else
Exit Sub
End If

End Sub
---------------------------------------------

Vielen Dank im Vorraus :D

Stefan Kulpa
29.07.2001, 05:39
<font face="Verdana" size="2">
Wohl eher, Guten Morgen ... ;)


Es war wohl schon etwas spät, oder ...

Der Dir-Befehl funktioniert schon, denn:</font>

<font face="Courier New" size="2">Erg1 = Dir("C:\TAP\ADMIN\FT\Send.dat")</font> <font face="Verdana" size="2">oder</font>
<font face="Courier New" size="2">Erg1 = Dir("C:\TAP\ADMIN\FT\sEND.DaT")</font><font face="Verdana" size="2">

ergibt das gleiche Ergebnis, und zwar den Dateinamen, so wie er wirklich lautet: Send.dat.
Danach vergleichst Du aber "Send.dat" mit "send.dat" - und das ist nunmal nicht gleich.

Um sicher zu gehen, solltest Du vielleicht die Strings anpassen:
</font>
<font face="Courier New" size="2">If LCase(Erg1) = "send.dat" Or LCase(Erg2) = "sendsa.dat" Then ...</font>

<font face="Verdana" size="2">Gruß</font>

AWSW
29.07.2001, 09:06
Na dann jetzt: Guten Morgen Stefan :D

Danke Dir - teste ich gleich mal...