.

Summary

OpenSaveFileDialgueFlags - Flags for flags element of OPENFILENAME structure

.

Summary

OpenFileName- Structure for GetOpenFileName

.

public class OpenFileName

.

Public Structure OpenFileName

.

    ''' The length, in bytes, of the structure. Use sizeof (OPENFILENAME) for this parameter.

.

    ''' When the GetOpenFileName or GetSaveFileName function returns successfully,

.

    ''' The GetOpenFileName and GetSaveFileName functions return FALSE if the buffer is

.

    ''' The default extension. GetOpenFileName and GetSaveFileName append this extension to the file name if the user fails to type an extension.

.

Public Type OPENFILENAME

.

Documentation

[OpenFileName] on MSDN

.

static extern bool GetOpenFileName([In, Out] OpenFileName ofn);

.

Private Shared Function GetOpenFileName(<[In], Out> ByVal ofn As OpenFileName) As Boolean

.

OpenFileName

.

    '} OPENFILENAME, *LPOPENFILENAME;

.

    Public Class OpenFileName

.

    End Class 'OpenFileName

.

        'BOOL GetOpenFileName(LPOPENFILENAME lpofn);

.

        Declare Auto Function GetOpenFileName Lib "Comdlg32.dll" ( _

.

        <[In](), Out()> ByVal ofn As OpenFileName) As Boolean

.

        Dim ofn As New OpenFileName

.

        If LibWrap.GetOpenFileName(ofn) Then

.

tcc -lcomdlg32 openfilename.c

.

./openfilename.exe is 2,048 bytes !!!

.

gcc -Wall -Wl,--enable-stdcall-fixup -mnop-fun-dllimport -mwindows getopenfilename.c

.

} OPENFILENAMEA,*LPOPENFILENAMEA;

.

#define OPENFILENAME OPENFILENAMEA

.

#define LPOPENFILENAME LPOPENFILENAMEA

.

#define GetOpenFileName GetOpenFileNameA

.

// below adapted from: https://www.daniweb.com/software-development/cpp/code/217307/a-simple-getopenfilename-example

.

    OPENFILENAME ofn;

.

    int i = GetOpenFileName(&ofn);

.

Documentation

[GetOpenFileName] on MSDN

.

private static extern bool GetSaveFileName(ref OPENFILENAME lpofn);

.

Private Shared Function GetSaveFileName(ByRef lpofn As OPENFILENAME) As Boolean

.

OPENFILENAME

.

    '} OPENFILENAME, *LPOPENFILENAME;

.

    Public Class OpenFileName

.

    End Class 'OpenFileName

.

    'BOOL GetOpenFileName(LPOPENFILENAME lpofn);

.

    <[In](), Out()> ByVal ofn As OpenFileName) As Boolean

.

    Dim ofn As New OpenFileName