Jeg er i gang med at lave en notesblok, men ved ikke hvordan man kan gemme og åbne dokumenter... nogen der vil hjælpe mig?
/Weeeeee 
Private Sub cfg_Click()
Dim sFile As String
If Text1 Is Nothing Then Exit Sub 'Hvis der ingenting står i "text1" dropper den commandoen
With dlgCommonDialog
.DialogTitle = "Save As..." 'Titlen på "save as dialogen"
.CancelError = False
'ToDo: set the flags and attributes of the common dialog control
.Filter = ".TXT filer (*.txt)|*.txt" 'Filerne den skal gemme som / vise - Og navnet
.ShowSave
sFile = .FileName
End With
If Trim(sFile) <> "" Then
Open sFile For Output As #1 ' Dette viser at den skal gemme i den åbnede fil
Print #1, Text1 'Den skal gemme text fra "text1"
Close #1
End If
End Sub
'This Save as dialog, Made by CoolKiller <-- Keep that
// CoolKiller @ CoolKiller.1go.dk