vbscript как проверить, существует ли файл txt и не создавать пустые

Question

Как я могу проверить с vbscript, если файл txt в C: \ Temp \ CAD_Kunde.txt существует, а когда он не существует, он должен быть пустым.

Edit: Я получаю сообщение об ошибке (ожидались заявление в строке 11 Char 1, когда я использую это:

<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> 

Answer 1

<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> 

Answer 2

Своих легкую

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 

Answer 3

Если вы не заботитесь о дискриминация между существующими/не существует и просто хочу убедиться, что она присутствует, вы можете

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