Changeset 427


Ignore:
Timestamp:
Feb 26, 2008, 5:06:24 PM (16 years ago)
Author:
OverTaker
Message:

CurentDirectoryのバグ修整

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Include/Classes/System/Environment.ab

    r388 r427  
    3434        Dim len = GetCurrentDirectory(size, p)
    3535        If len < size Then
    36             CurrentDirectory = New String(p, size As Long)
     36            CurrentDirectory = New String(p, len As Long)
    3737        End If
    3838    End Function
Note: See TracChangeset for help on using the changeset viewer.