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

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

Изменить: я получаю сообщение об ошибке (ожидаемое выражение в строке 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>

vbscript hta
person user1225282    schedule 27.02.2012    source источник
comment
Поместите явную строку Option перед строкой Sub.   -  person TheBlastOne    schedule 14.08.2013

Ответы (2)


arrow_upward
1
arrow_downward

Это просто

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
person 4m01    schedule 27.02.2012

arrow_upward
0
arrow_downward

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

set f = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\blabla", 1, true)
f.close()
person Alex K.    schedule 27.02.2012