DevX Home    Today's Headlines   Articles Archive   Tip Bank   Forums   

+ Reply to Thread
Results 1 to 9 of 9

Thread: help

  1. 11-20-2000 08:18 AM #1
    Software-Dungeon Guest

    help

    Please - why is this happening to me - the code below only returns the
    WindowsDirectory - I have done this many times before - why is this
    happening now... TIA

    '///////////////////////////////////////////////////////////////////////////
    /////

    Option Explicit
    Option Compare Text

    Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
    "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
    Long


    Public Function GetWinDir() As String
    Dim strBuffer As String
    Dim lngBuffer As Long

    strBuffer = String(200, Chr$(0))
    lngBuffer = Len(strBuffer)

    GetWindowsDirectory strBuffer, lngBuffer

    GetWinDir = Left$(strBuffer, lngBuffer)

    End Function


    Private Sub Form_Load()
    Dim OpenMe As String

    OpenMe = GetWinDir
    OpenMe = OpenMe & "\readme.exe"

    ' Why does this only return the WindowsDirectory -
    MsgBox OpenMe

    End

    End Sub

    '///////////////////////////////////////////////////////////////////////////
    //////


    Reply With Quote Reply With Quote
  2. 11-20-2000 08:47 AM #2
    Kevin Guest

    Re: help


    That is what it is supposed to return. It should never return any other value.

    If you want the program's application directory use the App.Path
    property.


    "Software-Dungeon" <James(AT)Software-dungeon.co.uk> wrote:
    >Please - why is this happening to me - the code below only returns the
    >WindowsDirectory - I have done this many times before - why is this
    >happening now... TIA
    >
    >'///////////////////////////////////////////////////////////////////////////
    >/////
    >
    >Option Explicit
    >Option Compare Text
    >
    >Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
    >"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
    >Long
    >
    >
    >Public Function GetWinDir() As String
    >Dim strBuffer As String
    >Dim lngBuffer As Long
    >
    >strBuffer = String(200, Chr$(0))
    >lngBuffer = Len(strBuffer)
    >
    >GetWindowsDirectory strBuffer, lngBuffer
    >
    >GetWinDir = Left$(strBuffer, lngBuffer)
    >
    >End Function
    >
    >
    >Private Sub Form_Load()
    >Dim OpenMe As String
    >
    >OpenMe = GetWinDir
    >OpenMe = OpenMe & "\readme.exe"
    >
    >' Why does this only return the WindowsDirectory -
    >MsgBox OpenMe
    >
    >End
    >
    >End Sub
    >
    >'///////////////////////////////////////////////////////////////////////////
    >//////
    >
    >

    Reply With Quote Reply With Quote
  3. 11-20-2000 08:47 AM #3
    Kevin Guest

    Re: help


    That is what it is supposed to return. It should never return any other value.

    If you want the program's application directory use the App.Path
    property.


    "Software-Dungeon" <James(AT)Software-dungeon.co.uk> wrote:
    >Please - why is this happening to me - the code below only returns the
    >WindowsDirectory - I have done this many times before - why is this
    >happening now... TIA
    >
    >'///////////////////////////////////////////////////////////////////////////
    >/////
    >
    >Option Explicit
    >Option Compare Text
    >
    >Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
    >"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
    >Long
    >
    >
    >Public Function GetWinDir() As String
    >Dim strBuffer As String
    >Dim lngBuffer As Long
    >
    >strBuffer = String(200, Chr$(0))
    >lngBuffer = Len(strBuffer)
    >
    >GetWindowsDirectory strBuffer, lngBuffer
    >
    >GetWinDir = Left$(strBuffer, lngBuffer)
    >
    >End Function
    >
    >
    >Private Sub Form_Load()
    >Dim OpenMe As String
    >
    >OpenMe = GetWinDir
    >OpenMe = OpenMe & "\readme.exe"
    >
    >' Why does this only return the WindowsDirectory -
    >MsgBox OpenMe
    >
    >End
    >
    >End Sub
    >
    >'///////////////////////////////////////////////////////////////////////////
    >//////
    >
    >

    Reply With Quote Reply With Quote
  4. 11-20-2000 08:56 AM #4
    Software-Dungeon Guest

    Re: help

    maybe I did not explain properly - the Form Load has is trying to return the
    Windows Directory combined with a file name - see below -

    '//////////////////////////////////////////////////////////////////////////

    Private Sub Form_Load()
    Dim OpenMe As String

    OpenMe = GetWinDir
    OpenMe = OpenMe & "\readme.exe"

    ' Why does this only return the WindowsDirectory -
    MsgBox OpenMe

    End

    End Sub

    '
    ////////////////////////////////////////////////////////////////////////////
    //////


    "Kevin" <KDM@worldnet.net> wrote in message news:3a192b58$1@news.devx.com...
    >
    > That is what it is supposed to return. It should never return any other
    value.
    >
    > If you want the program's application directory use the App.Path
    > property.
    >
    >
    > "Software-Dungeon" <James(AT)Software-dungeon.co.uk> wrote:
    > >Please - why is this happening to me - the code below only returns the
    > >WindowsDirectory - I have done this many times before - why is this
    > >happening now... TIA
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    /
    > >/////
    > >
    > >Option Explicit
    > >Option Compare Text
    > >
    > >Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
    > >"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
    > >Long
    > >
    > >
    > >Public Function GetWinDir() As String
    > >Dim strBuffer As String
    > >Dim lngBuffer As Long
    > >
    > >strBuffer = String(200, Chr$(0))
    > >lngBuffer = Len(strBuffer)
    > >
    > >GetWindowsDirectory strBuffer, lngBuffer
    > >
    > >GetWinDir = Left$(strBuffer, lngBuffer)
    > >
    > >End Function
    > >
    > >
    > >Private Sub Form_Load()
    > >Dim OpenMe As String
    > >
    > >OpenMe = GetWinDir
    > >OpenMe = OpenMe & "\readme.exe"
    > >
    > >' Why does this only return the WindowsDirectory -
    > >MsgBox OpenMe
    > >
    > >End
    > >
    > >End Sub
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    /
    > >//////
    > >
    > >
    >


    Reply With Quote Reply With Quote
  5. 11-20-2000 08:56 AM #5
    Software-Dungeon Guest

    Re: help

    maybe I did not explain properly - the Form Load has is trying to return the
    Windows Directory combined with a file name - see below -

    '//////////////////////////////////////////////////////////////////////////

    Private Sub Form_Load()
    Dim OpenMe As String

    OpenMe = GetWinDir
    OpenMe = OpenMe & "\readme.exe"

    ' Why does this only return the WindowsDirectory -
    MsgBox OpenMe

    End

    End Sub

    '
    ////////////////////////////////////////////////////////////////////////////
    //////


    "Kevin" <KDM@worldnet.net> wrote in message news:3a192b58$1@news.devx.com...
    >
    > That is what it is supposed to return. It should never return any other
    value.
    >
    > If you want the program's application directory use the App.Path
    > property.
    >
    >
    > "Software-Dungeon" <James(AT)Software-dungeon.co.uk> wrote:
    > >Please - why is this happening to me - the code below only returns the
    > >WindowsDirectory - I have done this many times before - why is this
    > >happening now... TIA
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    /
    > >/////
    > >
    > >Option Explicit
    > >Option Compare Text
    > >
    > >Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
    > >"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
    > >Long
    > >
    > >
    > >Public Function GetWinDir() As String
    > >Dim strBuffer As String
    > >Dim lngBuffer As Long
    > >
    > >strBuffer = String(200, Chr$(0))
    > >lngBuffer = Len(strBuffer)
    > >
    > >GetWindowsDirectory strBuffer, lngBuffer
    > >
    > >GetWinDir = Left$(strBuffer, lngBuffer)
    > >
    > >End Function
    > >
    > >
    > >Private Sub Form_Load()
    > >Dim OpenMe As String
    > >
    > >OpenMe = GetWinDir
    > >OpenMe = OpenMe & "\readme.exe"
    > >
    > >' Why does this only return the WindowsDirectory -
    > >MsgBox OpenMe
    > >
    > >End
    > >
    > >End Sub
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    /
    > >//////
    > >
    > >
    >


    Reply With Quote Reply With Quote
  6. 11-20-2000 11:15 AM #6
    Dani Sardą Guest

    Re: help

    You should use the directory actual length and not the initial buffer
    length. Something like that:

    strBuffer = String(200, Chr$(0))
    lngBuffer = Len(strBuffer)

    lngDirLength = GetWindowsDirectory(strBuffer, lngBuffer)

    GetWinDir = Left$(strBuffer, lngDirLength)

    --
    Saludos,

    Dani


    "Software-Dungeon" <James(AT)Software-dungeon.co.uk> escribió en el mensaje
    news:3a192e41@news.devx.com...
    > maybe I did not explain properly - the Form Load has is trying to return
    the
    > Windows Directory combined with a file name - see below -
    >
    >
    '//////////////////////////////////////////////////////////////////////////
    >
    > Private Sub Form_Load()
    > Dim OpenMe As String
    >
    > OpenMe = GetWinDir
    > OpenMe = OpenMe & "\readme.exe"
    >
    > ' Why does this only return the WindowsDirectory -
    > MsgBox OpenMe
    >
    > End
    >
    > End Sub
    >
    > '
    >
    ////////////////////////////////////////////////////////////////////////////
    > //////
    >
    >
    > "Kevin" <KDM@worldnet.net> wrote in message
    news:3a192b58$1@news.devx.com...
    > >
    > > That is what it is supposed to return. It should never return any other
    > value.
    > >
    > > If you want the program's application directory use the App.Path
    > > property.
    > >
    > >
    > > "Software-Dungeon" <James(AT)Software-dungeon.co.uk> wrote:
    > > >Please - why is this happening to me - the code below only returns the
    > > >WindowsDirectory - I have done this many times before - why is this
    > > >happening now... TIA
    > > >
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    > /
    > > >/////
    > > >
    > > >Option Explicit
    > > >Option Compare Text
    > > >
    > > >Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
    > > >"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long)
    As
    > > >Long
    > > >
    > > >
    > > >Public Function GetWinDir() As String
    > > >Dim strBuffer As String
    > > >Dim lngBuffer As Long
    > > >
    > > >strBuffer = String(200, Chr$(0))
    > > >lngBuffer = Len(strBuffer)
    > > >
    > > >GetWindowsDirectory strBuffer, lngBuffer
    > > >
    > > >GetWinDir = Left$(strBuffer, lngBuffer)
    > > >
    > > >End Function
    > > >
    > > >
    > > >Private Sub Form_Load()
    > > >Dim OpenMe As String
    > > >
    > > >OpenMe = GetWinDir
    > > >OpenMe = OpenMe & "\readme.exe"
    > > >
    > > >' Why does this only return the WindowsDirectory -
    > > >MsgBox OpenMe
    > > >
    > > >End
    > > >
    > > >End Sub
    > > >
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    > /
    > > >//////
    > > >
    > > >
    > >
    >
    >


    Reply With Quote Reply With Quote
  7. 11-20-2000 11:15 AM #7
    Dani Sardą Guest

    Re: help

    You should use the directory actual length and not the initial buffer
    length. Something like that:

    strBuffer = String(200, Chr$(0))
    lngBuffer = Len(strBuffer)

    lngDirLength = GetWindowsDirectory(strBuffer, lngBuffer)

    GetWinDir = Left$(strBuffer, lngDirLength)

    --
    Saludos,

    Dani


    "Software-Dungeon" <James(AT)Software-dungeon.co.uk> escribió en el mensaje
    news:3a192e41@news.devx.com...
    > maybe I did not explain properly - the Form Load has is trying to return
    the
    > Windows Directory combined with a file name - see below -
    >
    >
    '//////////////////////////////////////////////////////////////////////////
    >
    > Private Sub Form_Load()
    > Dim OpenMe As String
    >
    > OpenMe = GetWinDir
    > OpenMe = OpenMe & "\readme.exe"
    >
    > ' Why does this only return the WindowsDirectory -
    > MsgBox OpenMe
    >
    > End
    >
    > End Sub
    >
    > '
    >
    ////////////////////////////////////////////////////////////////////////////
    > //////
    >
    >
    > "Kevin" <KDM@worldnet.net> wrote in message
    news:3a192b58$1@news.devx.com...
    > >
    > > That is what it is supposed to return. It should never return any other
    > value.
    > >
    > > If you want the program's application directory use the App.Path
    > > property.
    > >
    > >
    > > "Software-Dungeon" <James(AT)Software-dungeon.co.uk> wrote:
    > > >Please - why is this happening to me - the code below only returns the
    > > >WindowsDirectory - I have done this many times before - why is this
    > > >happening now... TIA
    > > >
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    > /
    > > >/////
    > > >
    > > >Option Explicit
    > > >Option Compare Text
    > > >
    > > >Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
    > > >"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long)
    As
    > > >Long
    > > >
    > > >
    > > >Public Function GetWinDir() As String
    > > >Dim strBuffer As String
    > > >Dim lngBuffer As Long
    > > >
    > > >strBuffer = String(200, Chr$(0))
    > > >lngBuffer = Len(strBuffer)
    > > >
    > > >GetWindowsDirectory strBuffer, lngBuffer
    > > >
    > > >GetWinDir = Left$(strBuffer, lngBuffer)
    > > >
    > > >End Function
    > > >
    > > >
    > > >Private Sub Form_Load()
    > > >Dim OpenMe As String
    > > >
    > > >OpenMe = GetWinDir
    > > >OpenMe = OpenMe & "\readme.exe"
    > > >
    > > >' Why does this only return the WindowsDirectory -
    > > >MsgBox OpenMe
    > > >
    > > >End
    > > >
    > > >End Sub
    > > >
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    > /
    > > >//////
    > > >
    > > >
    > >
    >
    >


    Reply With Quote Reply With Quote
  8. 11-20-2000 01:41 PM #8
    Software-Dungeon Guest

    Re: help

    Ahh! - thanks for pointing this out...


    "Dani Sardą" <d.sarda@NOSPAMspin.es> wrote in message
    news:3a194e53@news.devx.com...
    > You should use the directory actual length and not the initial buffer
    > length. Something like that:
    >
    > strBuffer = String(200, Chr$(0))
    > lngBuffer = Len(strBuffer)
    >
    > lngDirLength = GetWindowsDirectory(strBuffer, lngBuffer)
    >
    > GetWinDir = Left$(strBuffer, lngDirLength)
    >
    > --
    > Saludos,
    >
    > Dani
    >
    >
    > "Software-Dungeon" <James(AT)Software-dungeon.co.uk> escribió en el
    mensaje
    > news:3a192e41@news.devx.com...
    > > maybe I did not explain properly - the Form Load has is trying to return
    > the
    > > Windows Directory combined with a file name - see below -
    > >
    > >
    >
    '//////////////////////////////////////////////////////////////////////////
    > >
    > > Private Sub Form_Load()
    > > Dim OpenMe As String
    > >
    > > OpenMe = GetWinDir
    > > OpenMe = OpenMe & "\readme.exe"
    > >
    > > ' Why does this only return the WindowsDirectory -
    > > MsgBox OpenMe
    > >
    > > End
    > >
    > > End Sub
    > >
    > > '
    > >
    >
    ////////////////////////////////////////////////////////////////////////////
    > > //////
    > >
    > >
    > > "Kevin" <KDM@worldnet.net> wrote in message
    > news:3a192b58$1@news.devx.com...
    > > >
    > > > That is what it is supposed to return. It should never return any
    other
    > > value.
    > > >
    > > > If you want the program's application directory use the App.Path
    > > > property.
    > > >
    > > >
    > > > "Software-Dungeon" <James(AT)Software-dungeon.co.uk> wrote:
    > > > >Please - why is this happening to me - the code below only returns
    the
    > > > >WindowsDirectory - I have done this many times before - why is this
    > > > >happening now... TIA
    > > > >
    > > >
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    > > /
    > > > >/////
    > > > >
    > > > >Option Explicit
    > > > >Option Compare Text
    > > > >
    > > > >Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
    > > > >"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As
    Long)
    > As
    > > > >Long
    > > > >
    > > > >
    > > > >Public Function GetWinDir() As String
    > > > >Dim strBuffer As String
    > > > >Dim lngBuffer As Long
    > > > >
    > > > >strBuffer = String(200, Chr$(0))
    > > > >lngBuffer = Len(strBuffer)
    > > > >
    > > > >GetWindowsDirectory strBuffer, lngBuffer
    > > > >
    > > > >GetWinDir = Left$(strBuffer, lngBuffer)
    > > > >
    > > > >End Function
    > > > >
    > > > >
    > > > >Private Sub Form_Load()
    > > > >Dim OpenMe As String
    > > > >
    > > > >OpenMe = GetWinDir
    > > > >OpenMe = OpenMe & "\readme.exe"
    > > > >
    > > > >' Why does this only return the WindowsDirectory -
    > > > >MsgBox OpenMe
    > > > >
    > > > >End
    > > > >
    > > > >End Sub
    > > > >
    > > >
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    > > /
    > > > >//////
    > > > >
    > > > >
    > > >
    > >
    > >
    >
    >


    Reply With Quote Reply With Quote
  9. 11-20-2000 01:41 PM #9
    Software-Dungeon Guest

    Re: help

    Ahh! - thanks for pointing this out...


    "Dani Sardą" <d.sarda@NOSPAMspin.es> wrote in message
    news:3a194e53@news.devx.com...
    > You should use the directory actual length and not the initial buffer
    > length. Something like that:
    >
    > strBuffer = String(200, Chr$(0))
    > lngBuffer = Len(strBuffer)
    >
    > lngDirLength = GetWindowsDirectory(strBuffer, lngBuffer)
    >
    > GetWinDir = Left$(strBuffer, lngDirLength)
    >
    > --
    > Saludos,
    >
    > Dani
    >
    >
    > "Software-Dungeon" <James(AT)Software-dungeon.co.uk> escribió en el
    mensaje
    > news:3a192e41@news.devx.com...
    > > maybe I did not explain properly - the Form Load has is trying to return
    > the
    > > Windows Directory combined with a file name - see below -
    > >
    > >
    >
    '//////////////////////////////////////////////////////////////////////////
    > >
    > > Private Sub Form_Load()
    > > Dim OpenMe As String
    > >
    > > OpenMe = GetWinDir
    > > OpenMe = OpenMe & "\readme.exe"
    > >
    > > ' Why does this only return the WindowsDirectory -
    > > MsgBox OpenMe
    > >
    > > End
    > >
    > > End Sub
    > >
    > > '
    > >
    >
    ////////////////////////////////////////////////////////////////////////////
    > > //////
    > >
    > >
    > > "Kevin" <KDM@worldnet.net> wrote in message
    > news:3a192b58$1@news.devx.com...
    > > >
    > > > That is what it is supposed to return. It should never return any
    other
    > > value.
    > > >
    > > > If you want the program's application directory use the App.Path
    > > > property.
    > > >
    > > >
    > > > "Software-Dungeon" <James(AT)Software-dungeon.co.uk> wrote:
    > > > >Please - why is this happening to me - the code below only returns
    the
    > > > >WindowsDirectory - I have done this many times before - why is this
    > > > >happening now... TIA
    > > > >
    > > >
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    > > /
    > > > >/////
    > > > >
    > > > >Option Explicit
    > > > >Option Compare Text
    > > > >
    > > > >Private Declare Function GetWindowsDirectory Lib "kernel32" Alias
    > > > >"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As
    Long)
    > As
    > > > >Long
    > > > >
    > > > >
    > > > >Public Function GetWinDir() As String
    > > > >Dim strBuffer As String
    > > > >Dim lngBuffer As Long
    > > > >
    > > > >strBuffer = String(200, Chr$(0))
    > > > >lngBuffer = Len(strBuffer)
    > > > >
    > > > >GetWindowsDirectory strBuffer, lngBuffer
    > > > >
    > > > >GetWinDir = Left$(strBuffer, lngBuffer)
    > > > >
    > > > >End Function
    > > > >
    > > > >
    > > > >Private Sub Form_Load()
    > > > >Dim OpenMe As String
    > > > >
    > > > >OpenMe = GetWinDir
    > > > >OpenMe = OpenMe & "\readme.exe"
    > > > >
    > > > >' Why does this only return the WindowsDirectory -
    > > > >MsgBox OpenMe
    > > > >
    > > > >End
    > > > >
    > > > >End Sub
    > > > >
    > > >
    > >
    >
    >'//////////////////////////////////////////////////////////////////////////
    > > /
    > > > >//////
    > > > >
    > > > >
    > > >
    > >
    > >
    >
    >


    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules
HTML5 Development Center
 
 
FAQ
Latest Articles
Java
.NET
XML
Database
Enterprise
Questions? Contact us.
C++
Web Development
Wireless
Latest Tips
Open Source


Top DevX Stories

Easy Web Services with SQL Server 2005 HTTP Endpoints
JavaOne 2005: Java Platform Roadmap Focuses on Ease of Development, Sun Focuses on the "Free" in F.O.S.S.
Wed Yourself to UML with the Power of Associations
Microsoft to Add AJAX Capabilities to ASP.NET
IBM's Cloudscape Versus MySQL


Sponsored Links