vbscript, wie um zu prüfen, ob eine txt-Datei vorhanden ist und ob nicht erstellen leere

Wie kann ich überprüfen, mit vbscript, wenn die txt-Datei in C:\Temp\CAD_Kunde.txt vorhanden ist und wenn es nicht vorhanden ist es leer sein sollten, erstellt.

Bearbeiten:
Ich bekomme eine Fehlermeldung (Erwartet-Anweisung in Zeile 11 Char 1, wenn ich dieses verwenden:

   <SCRIPT Language="VBScript"> 
        Sub Window_OnLoad
 //Line 11 is the one below:
    Option Explicit  
    Dim oFSO, oTxtFile   
    Set oFSO = CreateObject("Scripting.FileSystemObject")     
    If oFSO.FileExists("C:\Temp\CAD_Kunde.txt")  then
           Msgbox "File Exist" 
    Else 
          Set oTxtFile = oFSO.CreateTextFile("C:\Temp\CAD_Kunde.txt")  
          Msgbox "File Created" 
    End If 

    End Sub
    </script>
Legen Sie die Option explicit Zeile vor der Zeile Sub.

InformationsquelleAutor user1225282 | 2012-02-27

  1. 3
    <SCRIPT Language="VBScript">
Sub Window_OnLoad
Option Explicit 
Dim oTxtFile 
With (CreateObject("Scripting.FileSystemObject"))
  If .FileExists("C:\Temp\CAD_Kunde.txt") Then
    Msgbox "File Exist"
  Else 
    Set oTxtFile = .CreateTextFile("C:\Temp\CAD_Kunde.txt")
    Msgbox "File Created" 
  End If 
End With
End Sub
</script>

    InformationsquelleAutor Sta2s

  2. 0

    Seine Einfache

    Option Explicit 
Dim oFSO, oTxtFile


Set oFSO = CreateObject("Scripting.FileSystemObject") 



If oFSO.FileExists("C:\Temp\CAD_Kunde.txt")  Then
Msgbox "File Exist"
Else 
Set oTxtFile = oFSO.CreateTextFile("C:\Temp\CAD_Kunde.txt") 
Msgbox "File Created"
End If
    Bitte Antwort auf mein edit

    InformationsquelleAutor Amol

  3. 0

    Wenn Sie kümmern sich nicht um das unterscheidende zwischen vorhanden/nicht vorhanden ist und wollen einfach nur, um sicherzustellen, vorhanden ist, können Sie

    set f = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\blabla", 1, true)
f.close()

    InformationsquelleAutor Alex K.

Schreibe einen Kommentar