[VB] FileCopy

[KnEuTeR]

ik gebruik de volgende code om een programma bij het opstarten in de windows system directoy te krijgen:

Visual Basic:

FileCopy App.Path & App.EXEName & ".exe", GetSystemDirectory & "blaat.exe"

en daarbij haal ik de system dir met deze funtie:

Visual Basic:

Private Declare Function GetSystemDirectoryA Lib "kernel32" _
   (ByVal lpBuffer As String, ByVal nSize As Long) As Long



Public Function GetSystemDirectory() As String
  Dim s As String
  Dim i As Integer
  i = GetSystemDirectoryA("", 0)
  s = Space(i)
  Call GetSystemDirectoryA(s, i)
  s = Strings.Left$(s, i - 1)

  If Len(s) > 0 Then

    If Right$(s, 1) <> "\" Then
      GetSystemDirectory = s + "\"
    Else
      GetSystemDirectory = s
    End If

  Else
    GetSystemDirectory = "\"
  End If

End Function

op mijn windows 2000 werkt dit perfect, maar op windows 98 geeft hij de error:

Runtime Error "53"
"file not found"

hoe kan ik dit verhelpen?!

[whoami]

Debuggen, kijken op welke regel je die fout krijgt, kijken welke file of dir het is waar hij die fout op geeft, en dan kijken of die file of dir wel daadwerkelijk bestaat.

[KnEuTeR]

word er iig nooit moeilijk gedaan over case sensitive van directory/bestanden..?!

[Verwijderd]

als ik het goed lees copieer je jezelf tijdens het opstarten . .. en volgens mij kan dat niet . .omdat het opstarten er voor zorgt dat je exe exclusive gelocked wordt. .

[KnEuTeR]

waarom werkt het dan op win2k helemaal perfect, maar niet op win98?

[Verwijderd]

goeie vraag. . . waarschijnlijk klopt mijn stelling dan niet . ..

[Verwijderd]

App.Path & "\" & App.EXEName & ".exe"

Want :

App.Path & App.EXEName & ".exe"

geeft:

C:\Program Files\Microsoft Visual Studio\VB98Project1.exe

en

App.Path & "\" & App.EXEName & ".exe"

geeft:

C:\Program Files\Microsoft Visual Studio\VB98\Project1.exe