主题：怎么设置只允许保存在项目根目录？能否在下面代码基础上修改

Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")
Dim dlg As New SaveFileDialog
dlg.Filter= "JPEG|*.jpg|WMF|*.wmf|BMP|*.bmp|GIF|*.gif|PNG|*.png|TIFF|*.tif|EMF|*.emf"

Do While True
    If dlg.ShowDialog = DialogResult.Ok Then
        If FileSys.GetParentPath(dlg.FileName) = ProjectPath.trim("\") Then
            Exit Do
        End If
    End If
Loop

Chart.SaveImage(dlg.FileName)