写文件出现奇怪问题

Question

程序在写文件（写到记事本里）有时会出现写到一半就写不进去了（如：获取一个文件的目录把其写入到记事本里，但有时会写到这个文件目录一半程序就写不进去了），这个是什么原因？

Answer 1

Open App.path & "\data\Movie.dat" For Output As #1
    
    mvFiles = GetFiles(mvcn, True)
    For j = 1 To flag2
        mvstr = mvFiles(j)
        
        a = Split(mvstr, "\")
        b = Split(a(UBound(a)), ".")
        mvs = b(UBound(b))
        mvs = LCase(mvs)
        If mvs = "rmvb" Or mvs = "avi" Or mvs = "rm" Or mvs = "mp4" Or mvs = "mpg" Or mvs = "wv" Or mvs = "mkv" Or mvs = "vob" Or mvs = "dat" Or mvs = "mpeg" Then
            Write #1, Replace(a(UBound(a)), "." & b(UBound(b)), ""), mvFiles(j)
        End If
    Next j
    Close #1

Answer 2

flag2是什么数？你不说谁知道？