Vbscript-OpenTextFile在Azure中不起作用

时间:2019-03-29 10:04:21

标签: azure vbscript asp-classic

我们在Azure中有一个经典ASP 应用。多年来运行顺利。但是自昨天以来,OpenTextFile代码无法正常工作。

这是我们的代码:

set fs     = server.CreateObject ( "Scripting.FileSystemObject" )
set fFile = fs.OpenTextFile ( filePath, 1, true )

fs.OpenTextFile中的最后一个参数true表示:create the file if it doesn't exists

但是从昨天开始突然不起作用了。

我们在本地测试了我们的应用程序,并且该代码正在运行。如果文件不存在,它将创建文件。但是从昨天开始,在Azure中就无法使用。

Azure的任何帮助我们吗?

1 个答案:

答案 0 :(得分:0)

我们使用FileExists方法解决了问题:

if Not fs.FileExists(filePath) then
   set tfile = fs.CreateTextFile(filePath)
   tfile.close
end if

但是,如果方法OpenTextFile不再存在,那么方法var dateRanges = tours .Join(tourCategories, t => t.Id, tc => tc.TourId, (t, tc) => (t, tc)) .Join(tourDates, ttc => ttc.t.Id, td => td.TourId, (ttc, td) => (ttc, td)) .Join(dates, ttctd => ttctd.td.DateId, d => d.Id, (ttctd, d) => new { TourId = ttctd.ttc.t.Id, CategoryId = ttctd.ttc.tc.CategoryId, DepartureDateRange = d.DepartureDateRange, ReturnDateRange = d.ReturnDateRange }); var filtered = dateRanges .Where(r => r.CategoryId == 3 && r.TourId == 12); var maxDepartureDateRange = filtered.Max(d => d.DepartureDateRange); var maxReturnDateRange = filtered.Max(d => d.ReturnDateRange); 不会创建文件,这很奇怪。