WICHTIG Funktionsaufruf

[AndieDuframe]

Hallo an alle,

ich habe folgendes Skript geschrieben:

On Error Resume Next
'Option Explicit

Dim fso, fin1, fout1, str,c ,cnext, anzahl, space, flag
anzahl = 0

Public Const READ_FILE = "temp.txt", WRITE_FILE = "temp_out.txt"

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set fin1 = fspenTextFile(READ_FILE)
Set fout1 = fspenTextFile(WRITE_FILE, 2, True)

do
flag = file_size
c = fin1.Read(1)

if anzahl = 13 then
anzahl = 0
fout1.Write(vbNewLine)
else
if c = ";" then
anzahl = anzahl + 1
fout1.Write(c)
elseif c >= "!" and c <="~" or c ="ä" or c ="Ä" or c ="ö" or c ="Ö" or c ="ü" or c ="Ü" or c ="ß" then
fout1.Write(c)
elseif c = " " then
fout1.Write(c)
else
fout1.Write(" ")
end if
end if

loop while flag <> 1

fin1.close
fout1.close

Set fso = nothing
Set fin1 = nothing
Set fout1 = nothing
Set str = nothing
Set c = nothing

Msgbox "Vorgang beendet", VBInformation

' FUNKTION ZUR PRÜFUNG DER DATEIGRÖßE

function file_size
Dim fso, fin2, fout2

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Set fin2 = fso.GetFile(READ_FILE)
Set fout2 = fso.GetFile(WRITE_FILE, 2, True)

if fout2.size = fin2.size then
return 1
else
return 0
end if

end function

Mein Problem ist nun das er einfach nicht meine Unterfunktion aufrufen will, habe alles mögliche ausprobiert.
Mit Übergabeparameter, ohne Parameter, mit call, ohne call usw.
Aber nichts funktioniert, ich hoffe jemand kann mir helfen!
Es ist wirklich dringend.

Danke im Voras

 

[Shakie]

Wie er ruft sie nicht auf? Das kann ich mir nicht vorstellen. Bist du mal mit dem Debugger durch den Code durchgegangen, Schritt für Schritt (mit F8)?