Subversion Repositories DevTools

Rev

Rev 6070 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6070 Rev 6645
Line 94... Line 94...
94 
    ' Create a test file in a known directory
 94 
    ' Create a test file in a known directory
95 
    '
 95 
    '
96 
    Dim objZIPObject, ZipFile
 96 
    Dim objZIPObject, ZipFile
97 
    Dim outFile, objFSO, LocalDir, objFile
 97 
    Dim outFile, objFSO, LocalDir, objFile
98 
    Set objFSO=CreateObject("Scripting.FileSystemObject")
 98 
    Set objFSO=CreateObject("Scripting.FileSystemObject")
99 
    LocalDir = Request.ServerVariables("APPL_PHYSICAL_PATH") & "release_manager\temp\"
 99 
    LocalDir = Server.MapPath("temp")
100 
 
 100 
 
101 
    If NOT objFSO.FolderExists( LocalDir ) Then
 101 
    If NOT objFSO.FolderExists( LocalDir ) Then
102 
        result = 1
 102 
        result = 1
103 
        oJSON.data("emsgSummary") = "Folder not found:" & LocalDir
 103 
        oJSON.data("emsgSummary") = "Folder not found:" & LocalDir
104 
    Else
 104 
    Else