Access VBA - Dialog Box. Looking for an specific file
Now I have this code in order to open a dialog box to search for a concrete type of file, a .txt called memory: memory.txt
So:
Dim S As String
S = OpenCommDlg("C:memory.txt")
If IsNull(S) Or S = "" Then Exit Sub
Unfortunately, this opens a dialog box in C:, of course, but looking for image type archives, which is absolutely not what I'm looking for. You can see this at the right side of the attached image:
Anyone knows how to modify this code in order to find the kind of archive we are looking for, and it's name...
vba access
edited Nov 20 '18 at 9:18
K.Dᴀᴠɪs
7,229112439
asked Nov 20 '18 at 8:39
AccOUCHAccOUCH
205
add a comment |
Now I have this code in order to open a dialog box to search for a concrete type of file, a .txt called memory: memory.txt
So:
Dim S As String
S = OpenCommDlg("C:memory.txt")
If IsNull(S) Or S = "" Then Exit Sub
Unfortunately, this opens a dialog box in C:, of course, but looking for image type archives, which is absolutely not what I'm looking for. You can see this at the right side of the attached image:
Anyone knows how to modify this code in order to find the kind of archive we are looking for, and it's name...
vba access
edited Nov 20 '18 at 9:18
K.Dᴀᴠɪs
7,229112439
asked Nov 20 '18 at 8:39
AccOUCHAccOUCH
205
The file type list will be in your functionOpenCommDlg(). Use Shift+F2 to go to its definition.
– Andre
Nov 20 '18 at 9:41
add a comment |
Now I have this code in order to open a dialog box to search for a concrete type of file, a .txt called memory: memory.txt
So:
Dim S As String
S = OpenCommDlg("C:memory.txt")
If IsNull(S) Or S = "" Then Exit Sub
Unfortunately, this opens a dialog box in C:, of course, but looking for image type archives, which is absolutely not what I'm looking for. You can see this at the right side of the attached image:
Anyone knows how to modify this code in order to find the kind of archive we are looking for, and it's name...
vba access
edited Nov 20 '18 at 9:18
K.Dᴀᴠɪs
7,229112439
asked Nov 20 '18 at 8:39
AccOUCHAccOUCH
205
Now I have this code in order to open a dialog box to search for a concrete type of file, a .txt called memory: memory.txt
So:
Dim S As String
S = OpenCommDlg("C:memory.txt")
If IsNull(S) Or S = "" Then Exit Sub
Unfortunately, this opens a dialog box in C:, of course, but looking for image type archives, which is absolutely not what I'm looking for. You can see this at the right side of the attached image:
Anyone knows how to modify this code in order to find the kind of archive we are looking for, and it's name...
vba access
vba access
edited Nov 20 '18 at 9:18
K.Dᴀᴠɪs
7,229112439
asked Nov 20 '18 at 8:39
AccOUCHAccOUCH
205
edited Nov 20 '18 at 9:18
K.Dᴀᴠɪs
7,229112439
asked Nov 20 '18 at 8:39
AccOUCHAccOUCH
205
edited Nov 20 '18 at 9:18
K.Dᴀᴠɪs
7,229112439
edited Nov 20 '18 at 9:18
K.Dᴀᴠɪs
7,229112439
edited Nov 20 '18 at 9:18
K.Dᴀᴠɪs
7,229112439
7,229112439
asked Nov 20 '18 at 8:39
AccOUCHAccOUCH
205
asked Nov 20 '18 at 8:39
AccOUCHAccOUCH
205
asked Nov 20 '18 at 8:39
AccOUCHAccOUCH
205
205
The file type list will be in your functionOpenCommDlg(). Use Shift+F2 to go to its definition.
– Andre
Nov 20 '18 at 9:41
add a comment |
The file type list will be in your functionOpenCommDlg(). Use Shift+F2 to go to its definition.
– Andre
Nov 20 '18 at 9:41
The file type list will be in your function
OpenCommDlg(). Use Shift+F2 to go to its definition.– Andre
Nov 20 '18 at 9:41
The file type list will be in your function
OpenCommDlg(). Use Shift+F2 to go to its definition.– Andre
Nov 20 '18 at 9:41
add a comment |
1 Answer
1
active
oldest
votes
You can use the FileDialog method. This will save the full file path to your s string, and you can add multiple filters to filter by file type.
Dim s As String
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "Text Files", "*.txt"
.Filters.Add "All Files", "*.*"
If .Show Then s = .SelectedItems(1)
End With
Debug.Print s
If you want to automatically fill in the inputbox with your filename, then you can just add this line to the with statement:
.InitialFileName = "C:memory.txt"
answered Nov 20 '18 at 9:06
K.DᴀᴠɪsK.Dᴀᴠɪs
7,229112439
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53389090%2faccess-vba-dialog-box-looking-for-an-specific-file%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
You can use the FileDialog method. This will save the full file path to your s string, and you can add multiple filters to filter by file type.
Dim s As String
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "Text Files", "*.txt"
.Filters.Add "All Files", "*.*"
If .Show Then s = .SelectedItems(1)
End With
Debug.Print s
If you want to automatically fill in the inputbox with your filename, then you can just add this line to the with statement:
.InitialFileName = "C:memory.txt"
answered Nov 20 '18 at 9:06
K.DᴀᴠɪsK.Dᴀᴠɪs
7,229112439
add a comment |
You can use the FileDialog method. This will save the full file path to your s string, and you can add multiple filters to filter by file type.
Dim s As String
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "Text Files", "*.txt"
.Filters.Add "All Files", "*.*"
If .Show Then s = .SelectedItems(1)
End With
Debug.Print s
If you want to automatically fill in the inputbox with your filename, then you can just add this line to the with statement:
.InitialFileName = "C:memory.txt"
answered Nov 20 '18 at 9:06
K.DᴀᴠɪsK.Dᴀᴠɪs
7,229112439
add a comment |
You can use the FileDialog method. This will save the full file path to your s string, and you can add multiple filters to filter by file type.
Dim s As String
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "Text Files", "*.txt"
.Filters.Add "All Files", "*.*"
If .Show Then s = .SelectedItems(1)
End With
Debug.Print s
If you want to automatically fill in the inputbox with your filename, then you can just add this line to the with statement:
.InitialFileName = "C:memory.txt"
answered Nov 20 '18 at 9:06
K.DᴀᴠɪsK.Dᴀᴠɪs
7,229112439
You can use the FileDialog method. This will save the full file path to your s string, and you can add multiple filters to filter by file type.
Dim s As String
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "Text Files", "*.txt"
.Filters.Add "All Files", "*.*"
If .Show Then s = .SelectedItems(1)
End With
Debug.Print s
If you want to automatically fill in the inputbox with your filename, then you can just add this line to the with statement:
.InitialFileName = "C:memory.txt"
answered Nov 20 '18 at 9:06
K.DᴀᴠɪsK.Dᴀᴠɪs
7,229112439
edited Nov 20 '18 at 9:15
answered Nov 20 '18 at 9:06
K.DᴀᴠɪsK.Dᴀᴠɪs
7,229112439
answered Nov 20 '18 at 9:06
K.DᴀᴠɪsK.Dᴀᴠɪs
7,229112439
answered Nov 20 '18 at 9:06
K.DᴀᴠɪsK.Dᴀᴠɪs
7,229112439
7,229112439
add a comment |
add a comment |
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53389090%2faccess-vba-dialog-box-looking-for-an-specific-file%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
The file type list will be in your function
OpenCommDlg(). Use Shift+F2 to go to its definition.– Andre
Nov 20 '18 at 9:41