Windows prompt til at gemme fil med valgt filnavn

Fx.

Function SaveTextData(FileName, Text, CharSet)
  Const adTypeText = 2
  Const adSaveCreateOverWrite = 2
 
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
 
  'Specify stream type - we want To save text/string data.
  BinaryStream.Type = adTypeText
 
  'Specify charset For the source text (unicode) data.
  If Len(CharSet) > 0 Then
    BinaryStream.CharSet = CharSet
  End If
 
  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.WriteText Text
 
  'Save binary data To disk
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function


//>Rune

Du kan oxo bruge File system objects:

Function SaveBinaryDataTextStream(FileName, ByteArray)
  'Create FileSystemObject object
  Dim FS: Set FS = CreateObject("Scripting.FileSystemObject")
 
  'Create text stream object
  Dim TextStream
  Set TextStream = FS.CreateTextFile(FileName)
 
  'Convert binary data To text And write them To the file
  TextStream.Write BinaryToString(ByteArray)
End Function

//>Rune

Dette virker for mig:

Function SaveTextData(FileName, Text)
  Const adTypeText = 2
  Const adSaveCreateOverWrite = 2
 
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
 
  'Specify stream type - we want To save text/string data.
  BinaryStream.Type = adTypeText

 
  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.WriteText Text
 
  'Save binary data To disk
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function

Call SaveTextData("hej.txt", "testadsf")

//>Rune

Hvor definerer jeg lige at jeg gerne vil have min filextension = RiDat

Min fejl.. SÅdan her:

Function SaveTextData(FileName, Text)
  Const adTypeText = 2
  Const adSaveCreateOverWrite = 2
 
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")
 
  'Specify stream type - we want To save text/string data.
  BinaryStream.Type = adTypeText
 
  'Specify charset For the source text (unicode) data.
  'If Len(CharSet) > 0 Then
  '  BinaryStream.CharSet = CharSet
  'End If
 
  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.WriteText Text

  If InStr(FileName, ".") Then
    arrFName = SPlit(FileName, ".")
    FileName = LBound(arrFName)
        FileName = Filename & ".RiDat"
  Else
        FileName = Filename & ".RiDat"
  End If
 
  'Save binary data To disk
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function

Call SaveTextData("hej", "testadsf")

//>Rune

Ok, jeg får en syntaks error i første linie SaveTextData(FileName, Text)
når jeg sætter mit filnavn

Sub Main()
Filnavn = SaveTextData
End sub

Men, jeg tror du har misforstået mit spørgsmål, jeg vil jo gerne have den kendte windowsprompt "Save as" eller "Gem som" hvor jeg kan vælge mappe ogskrive et filnavn, og hvor der i filtypen står RiDat.

Det skal jo se sådan her ud:

Sub Main()
Filnavn = SaveTextData "filnavn", "filens indhold"
End sub

-jeg mener ikke at man kan få en Save As box frem!

//>Rune

Kan desværre ikke bruge forslagene, spørgsmålet lukkes