Problemer med kode

Det jeg tror der er galt er at du kalder 2 variabler mellem ""
Det der står mellem "" er en streng så den vil se sådan her ud når den exekveres:

net.exe use Drive Path

Hvor den skulle ha set sådan her ud:

net.exe use c:\mappe\

Open App.Path & "\users.ini" For Input As #1
  Do While EOF(1) = False
        Line Input #1, Drive
      Line Input #1, Path
   
  Shell "net.exe use" & Drive & "\" & Path &", vbHide
     
  Loop
Close #1

Noget i den retning, der findes dog en anden måde at bruge ini filer på som giver lidt flere muligheder og mere styr over ini filerne....
Hvis du er interesseret så kan jeg godt paste den kode til dig også......

Hej Tubber,

Du må meget gerne paste det koden...

Hilsen,
Anders.

hej Tubber,

Den melder fejl ved "Line Input #1, Drive" har du en ide?

-Anders.

Nej bruger ikke rigtigt det der arbejder normalt med databaser, og når det er ini filer det andet....finder lige koden

'Read option setup from .ini file

strFileName = App.Path & "\setup.ini"
lngResult = GetPrivateProfileString("Options", _
"ToTray", strFileName, strResult, Len(strResult), _
strFileName)

'If value = 0 reports an error

If lngResult = 0 Then
Call MsgBox("An error has occurred", _
vbExclamation)
Else
   
    'Set options, where value set from .ini file
   
    If Trim(strResult) = 1 Then
        menuMinimize.Checked = False
    ElseIf Trim(strResult) = 2 Then
        menuMinimize.Checked = True
    End If
End If

'Change Option for minimize to tray

If menuMinimize.Checked = False Then
    menuMinimize.Checked = True
   
    'Writes new setting to .ini file
   
    strFileName = App.Path & "\Setup.ini"
    lngResult = WritePrivateProfileString("Options", _
    "ToTray", "2", strFileName)

    'If value = 0 reports an error
   
    If lngResult = 0 Then
    Call MsgBox("An error has occurred", _
    vbExclamation)
    End If

og så følgende i et basmodul:

Attribute VB_Name = "useINI"
'Declaretion for writing to an .ini file

Public Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationname As String, ByVal _
lpKeyName As Any, ByVal lsString As Any, _
ByVal lplFilename As String) As Long

'Declaretion for read from an .ini file

Public Declare Function GetPrivateProfileString Lib _
"kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationname As String, ByVal _
lpKeyName As String, ByVal lpDefault As _
String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As _
String) As Long

'variables for reading and writing .ini files
'They are dimensioned here becaus then the module
'can be freely moved to other programs

Global lngResult As Long
Global strFileName
Global strResult As String * 50

Og sådan her ser min ini fil ud:
[Options]
OnTop=2
ToTray=2

[Installation]
Type=1

har fået det til at virke,

Problemet var min shell som stod forkert

Følgende kode virker:

Open App.Path & "\users.ini" For Input As #1
  Do While EOF(1) = False
        Line Input #1, Drive
      Line Input #1, Path
         
  Shell "net.exe use " & Drive & ": " & Path & "", vbHide
       
  Loop
Close #1

Tubber: Svar venligst og du får point...

Hilsen,
Anders.

Det kommer her :)