小吳 VBQA 程式設計討論

Private Sub Command9_Click()
TG = FileExists("D:\測試資料\材料破壞實驗\曲線圖\")
End Sub
Public Function FileExists(filename As String) As Boolean
Dim i As Integer
　　On Error Resume Next
　　i = Len(Dir$(filename, vbDirectory))
　　If Err Or i = 0 Then
　　　　FileExists = False
　　　　MkDir (filename)
　　Else:
　　　　FileExists = True
　　End If
End Function