At gemme en fil???

Hej,

se her;

Dim stRnr As String
Dim stRfil As String
Dim stRPlacering As String

stRPlacering = "test.text" ' sidt din input kode her
stRnr = FreeFile
stRfil = "c:\robotprogrammer" & stRPlacering

Open stRfil For Output As #stRnr
Print #stRnr, "besked til fil"
Close #stRnr

kan det kode eksempel bruges?

/Casper http://enter-s.dk

Det navn brugeren indtaster; Er det en eksisterende fil? Eller en der skal oprettes? I sidstnævnte tilfælde kan du bruge xzxzx's løsning. Hvis det derimod er en eksisterende fil, der skal flyttes/kopieres skal der bruges andre metoder. Men jeg vil ikke bruge energi på det hvis det ikke er nødvendigt.

Hej.

(lidt det samme som xz's, men bare udbygget)

* Opret en commandbutton og en filebox. Fileboxen skal være hide.
* Kopier dette ind i generel:

Private Sub Command1_Click()
' Opret en filebox og denne commandbox.
' Hide din filebox

Dim Tekst, Fil, Navn, Mappe As String, Findes As Boolean

Tekst = InputBox("Skriv indholdet af filen her:")
Navn = InputBox("Skriv navnet på filen her:")


' I hvilken mappen gemmes filen
Mappe = "c:\robotprogrammer\"
Fil = Mappe & Navn

If UCase(Right(Fil, 4)) <> ".TXT" Then
    Fil = Fil & ".TXT"
End If
If UCase(Right(Navn, 4)) <> ".TXT" Then
    Navn = Navn & ".TXT"
End If

' Checker om mappen findes
Mp Mappe

' Checker om filen findes
Dim OK As Boolean
OK = False

For n = 0 To File1.ListCount - 1
    If UCase(File1.List(n)) = UCase(Navn) Then
        OK = True
    End If
Next n

Dim AA As String
If OK = True Then
    AA = MsgBox("Filen findes vil du overskrive den??", vbCritical + vbYesNo)
    If AA = vbNo Then
        Exit Sub
    End If
End If

' Skriver filen
Open Fil For Output As #1
    Print #1, Tekst
Close #1

' Slut
MsgBox "Filen er gemt uden fejl!" & vbclrf & vbclrf & "K A N T O R A Z A", vbInformation
End Sub



Public Sub Mp(mappeX As String)
On Error GoTo fejl

File1.Path = mappeX

Exit Sub
fejl:

Dim SS As String
SS = MsgBox("FEJL!" & vbCrLf & vbclrf & "Mappen findes ikke! " & mappeX & vclrf & vbclrf & "Vil du oprette den??", vbCritical + vbYesNo)

If SS = vbYes Then
    MkDir mappeX
    File1.Path = mappeX
End If

End Sub


Held og lykke!

/KantoRaZa\

Tilfreds??

Jeps!!