Changeset 435 for trunk/Include/Classes/System/IO/FileStream.ab
- Timestamp:
- Feb 28, 2008, 1:39:16 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/System/IO/FileStream.ab
r432 r435 34 34 /* コンストラクタ.NETと同じように実装は難しい、一先ず動くものを実装したが変更が必要だと思う */ 35 35 Sub FileStream(path As String, mode As FileMode, access As FileAccess, share As FileShare, options As FileOptions) 36 If ActiveBasic.IsNothing(path) Then 37 Throw New ArgumentNullException("path") 38 ElseIf path.Length = 0 Then 39 Throw New ArgumentException 40 End If 41 42 36 43 Dim ac = access As DWord 37 44 Dim sh = share As DWord … … 49 56 'Throw System.IO.FileNotFoundException 50 57 This.handle=0 51 Beep(220,500)58 Detail.ThrowWinLastErrorIOException("Failed to open/create file.") 52 59 Exit Sub 53 60 End If
Note:
See TracChangeset
for help on using the changeset viewer.