'¶ÁÈ¡ÎÄ¼þµ½×Ö·û´®
Function GetFileStr(ByVal szFileName as String) as String
   Dim h as Integer, txt as String
   h = Freefile
   Open szFileName For Binary as #h
   If LOF(h) > 0 Then
      txt = String(LOF(h), 0)
      If Get(#h, 1, txt) <> 0 Then txt = ""
   End If
   
   Close h
   Function = txt
End Function