Visual Basic

FileSystem.GetAttr("C:\here") = vbReadOnly

public Sub Main()

    If App.PrevInstance Then        
       If Command$ <> vbNullString Then
           myform.HiddenText.Text = Command$
           myform.HiddenText.LinkTopic = "MyApplication|SendCmd"
           myform.HiddenText.LinkMode = vbLinkManual
           myform.HiddenText.LinkExecute myform.HiddenText.Text
           myform.HiddenText.LinkMode = vbLinkNone
        End If
        Unload myform
        Exit Sub

    Else
        'perform some checks
        
    End If

    'pseudo code 
    If checks are not valid 
        show message and exit
    else
        if command$ has value
               myform.show
        else 
               myform.hide
        end if
    end if

Exit sub
End Sub

Dim myFont As New FontDialog
myFont.AllowScriptChange = True
myFont.ShowDialog()

'This sets default settings on a save dialog called dlgExport
With dlgExport
   .Filter = "Excel Files (*.xls)|*.xls|All Extensions (*.*)|*.*"
   .FilterIndex = 1
   .RestoreDirectory = True
   .Title = "Export"
   .AddExtension = True
   .FileName = String.Empty
End With

'This is what you would put in the export button's click event:
If dlgExport.ShowDialog = Windows.Forms.DialogResult.OK Then
'You probably want to add checks to make sure dlgExport.FileName is valid first
   reportDocument1.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.Excel, dlgExport.FileName)
End If

Michael Schäuble wrote:

could someone please give me an idea how to get the localized folder names (e.g. 'users', 'program files' etc) in VB.NET? I'm using the GetDirectories method, and can only get the English folder names.