Oprette fil og skrive til den

Brug funktionen:

Public Function InsertLine(fName As String, LineNumber As Long, LineText As String) _
    As String

Dim oFSO As New FileSystemObject
Dim oFSTR As TextStream
Dim ret As Long
Dim lCtr As Long
 
If oFSO.FileExists(fName) Then
    Set oFSTR = oFSO.OpenTextFile(fName)
    Do While Not oFSTR.AtEndOfStream
      lCtr = lCtr + 1
      If lCtr = LineNumber Then
'Error happens here!/  oFSTR.Write LineText
            Exit Do
      End If
      oFSTR.SkipLine
  Loop
    oFSTR.Close
    Set oFSTR = Nothing

  End If
End Function

Eller:

Dim OutPutFile, checkboxvalue
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("fil.txt", True)

OutPutFile.WriteLine checkboxvalue
OutPutFile.Close

Set FileSystem = Nothing

så skal du bare sætte checkboxvalue lig værdien af din checkbox og køre en løkke hvis der er flere af dem...

hm... jeg er meget ny i VB.

Så jeg ved ikke hvordan man får den til at køre en løkke,

Du kan også gøre det sådan uden en løkke:

Dim OutPutFile, checkboxvalue
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("fil.txt", True)

If check1.value = 1 Then OutPutFile.WriteLine "Check 1 er afkrydset"
If check1.value = 2 Then OutPutFile.WriteLine "Check 2 er afkrydset"
If check1.value = 3 Then OutPutFile.WriteLine "Check 3 er afkrydset"
'Osv osv'
OutPutFile.Close

Set FileSystem = Nothing

Ups, du får den lige igen:

Dim OutPutFile, checkboxvalue
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("fil.txt", True)

If check1.value = 1 Then OutPutFile.WriteLine "Check 1 er afkrydset"
If check2.value = 2 Then OutPutFile.WriteLine "Check 2 er afkrydset"
If check3.value = 3 Then OutPutFile.WriteLine "Check 3 er afkrydset"
'Osv osv'
OutPutFile.Close

Set FileSystem = Nothing

det ligner noget jeg har set før, jeg laver det lige, og vender tilbage :-)

hm... når jeg forsøger at køre programmet melder den fejl ved Set FileSystem = Nothing

ups

Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject

det er her den melder fejl

Private Sub Command1_Click()


Dim OutPutFile, checkboxvalue
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("install.bat", True)








If Check1.Value = 1 Then        'Acrobat Reader

    OutPutFile.WriteLine "p:\install\acrobat\acrobatreader6\install.bat"


If Check2.Value = 1 Then        'Office 2000

    MsgBox ("\\toolserv\")

If Check3.Value = 1 Then        'Proofing tools

    MsgBox ("sådan")


Set FileSystem = Nothing
OutPutFile.Close



End If
End If
End If


End Sub

sådan der ser min hurtige slamkode ud, det gør det vist nemmere for dig

Ups, var lidt hurtig.... prøv dette:

Dim OutPutFile, checkboxvalue, fs
Set fs = CreateObject("Scripting.FileSystemObject")
Set OutPutFile = fs.CreateTextFile("install.bat", True)








If Check1.Value = 1 Then        'Acrobat Reader

    OutPutFile.WriteLine "p:\install\acrobat\acrobatreader6\install.bat"


If Check2.Value = 1 Then        'Office 2000

    MsgBox ("\\toolserv\")

If Check3.Value = 1 Then        'Proofing tools

    MsgBox ("sådan")


Set fs = Nothing
OutPutFile.Close



End If
End If
End If

Du kan lige så godt lukke din If's med det samme hvis du ikke skal bruge dem mere:

Dim OutPutFile, checkboxvalue, fs
Set fs = CreateObject("Scripting.FileSystemObject")
Set OutPutFile = fs.CreateTextFile("install.bat", True)

If Check1.Value = 1 Then        'Acrobat Reader
    OutPutFile.WriteLine "p:\install\acrobat\acrobatreader6\install.bat"
End If

If Check2.Value = 1 Then        'Office 2000
    MsgBox ("\\toolserv\")
End If

If Check3.Value = 1 Then        'Proofing tools
    MsgBox ("sådan")
End If

Set fs = Nothing
OutPutFile.Close

du er da for sej :-) tak for hjælpen

hehe, velbekomme :-)

For god ordensskyld behøver du ikke erklære variabler der ikke bliver brugt. Har lige rettet til:

Dim fs, OutPutFile
Set fs = CreateObject("Scripting.FileSystemObject")
Set OutPutFile = fs.CreateTextFile("install.bat", True)

If Check1.Value = 1 Then        'Acrobat Reader
    OutPutFile.WriteLine "p:\install\acrobat\acrobatreader6\install.bat"
End If

If Check2.Value = 1 Then        'Office 2000
    MsgBox ("\\toolserv\")
End If

If Check3.Value = 1 Then        'Proofing tools
    MsgBox ("sådan")
End If

Set fs = Nothing
OutPutFile.Close