Modules & VBA :: Open Folder Nested Inside Main Folder?
Mar 16, 2015
I'm trying to open a folder based on a BIN nr. This folder could be in a main folder that has diferent subfolder. As there where differnt naming used to create the folderes, one of the things they have always is the BIN nr. It alwasy start with a unique number and maybe I could use it to scan the subfolders and open that one that the BIN nr is equal as in the field BIN.
Now we have serveral 1000th of folders and finding them takes time.
View Replies
ADVERTISEMENT
Sep 2, 2015
I'm trying to automate a process of selecting a set of file/s and move them in a folder. When I click on a button, it should open a current folder that is setup in the code.
Lets say that I have a folder C:documents est, and very time I click on the button, it should open the dialog box with that path so I can select the files from another folder, drag them there and they will be saved in that folder.
This will form part of wider automation that will send an email stating that those file/s where placed in that folder.
I have in the same form where the button is placed, 3 check boxes that needs to be passed to the email as well that one or all the files where placed in the folder.
View 10 Replies
View Related
Mar 1, 2015
I'm having problems creating a second subfolder in the main folder.
The main folder is used to keep inside the reviews of clients inside.
The code I have now, will only create a main folder if it does not exist and then a subfolder with the BIN nr, type review and date. If the client would have a diferent ones and in diferent years. So if it has first "Prototype Model", the next one could be "Prototype Review". The part of the code that checks if the main folder exist works, but how to let the code create in the main folder the second review subfolder? Please see below code I managed so far:
Code:
Private Sub btn_Create_Folder_Click() 'XXXXXXXXXX working onXXXXXXXXXXXXXX
Dim path1 As String
Dim path2 As String
path1 = "C:Test_FolderMedium" & Me.BIN & "_" & RTrim(Me.LE_Name) & ""
path2 = "C:Test_FolderHigh" & Me.BIN & "_" & RTrim(Me.LE_Name) & ""
[Code] ...
How to have the code test both of them?
View 14 Replies
View Related
Apr 27, 2015
I am trying to display an open file dialog window so that the user can pick up a file. I wish the window to show a specific folder. How can I do this? The code I am using is below. The parameter InitialFileName has no effect on the outcome.
Code:
Function GetFileName(strPath As String, imtype As String) As String
On Error GoTo Err_GetFileName
Dim Dlg As FileDialog
Dim sfl As FileDialogSelectedItems
Dim sflitem As Variant
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
[Code] .....
View 11 Replies
View Related
Dec 18, 2014
I have a tree-view object that is filled with a specific folder list, when a command button is pressed I would like too expand to a specific node based on a variable/foldername.
How to achieve this? My knowledge of tree-view is limited and I am still learning VBA.
View 2 Replies
View Related
Sep 8, 2014
I am 2 years into my database. I am trying to find and open a folder based on a text box. The problem is folder could be in many sub folders which is hold on our J: drive.
To further complicate, the folder i am searching may not be exactly as the text box states.
EG. Text box could say 123456 however the folder could be called M123456 etc.
How do i locate a folder or subfolder and open it based on part of a text box...
View 3 Replies
View Related
Jan 28, 2015
I want to move documents associated with one customer from my main document folder to another. I've looked at some sample code but nothing seems to work
I want to run a query to get the document list
Run the code to move these files ( PDF Files )
and It's done...
View 14 Replies
View Related
Jan 3, 2007
Please forgive my Newbieness and accept I am a keen ametuer running a small business and trying to use access as a tool. No doubt I will be back with many questions as you all seem so knowledgeable, thanks in advance.
Can't really do code but get on OK with built in wizards etc. Wonder if someone might be able to help with this one:
Is it possible to set a command into a form that opens up a windows folder elsewhere on the computer or network? For example, receive email from DIY multiple containing kitchen plan, installation costing etc, as attachments. File attachments in folder on server, manually enter detail into access database which generates "Customer ID Number", decides which fitter, surveyor etc. then need to email a report (have managed conversion to PDF and to launch outlook) but then wanted to copy and attach the original attachments to this new email, along with Access report for forwarding to various surveyors / fitters around the UK. Thus require if poss to open file on server, copy attachments and paste in new e mail, thought it would save time to do by one button press to open server file??
May seem easier to just forward original e mail but unfortunately some of the info in the mails from the DIY multiples is not for distribution and filtering isn't possible.
Perhaps one simply can't do it but worth asking, thanks again. Paul
View 3 Replies
View Related
Aug 14, 2013
Open a specific Windows Folder.I am using this code to open a specific Windows folder ..... and it works perfect:
As String Dim folder
folder = "c: Documents WORD"
Dim Retval
Retval = Shell ("explorer.exe / e, / root," "" & folder & "" "", 1)
... but also need to open in the specified path, taking the data "UserName" of one field in a table:
TABLE: "Assignments" IDEExp, UserName, Date
So instead of going to the folder = "c:Documents WORD" would go to: c: Documents WORDUserName ". In Windows and subfolders are created with UserName1, 2,3,4, etc.
View 10 Replies
View Related
Nov 26, 2014
I have 3 attachment boxes in my table that appears in a form.each attachment box contains specific files (not specific as in extension such as PDF, JPEG, etc.) but specific as in Company Documents, Certifications, Resumes. The issue is there's a lot of document and I see my database growing (fast)...My question finally is....
Can I use a Hyperlink to open a folder within a specific directory where multiple file are located so i can open the specific file need there RATHER than attaching them in the attachment box individually?.?.....If not how this can be done (no SQL) unless that route is very simple and basic coding.
My thinking would be to place the file path to the documents in the table and hyper link that column in the table, but not knowing exactly how Hyperlinks work I don't think it would actually work..
View 6 Replies
View Related
Sep 18, 2012
My situation is that the access form field name is "Number" , there is a folder named "member" in
desktop C:UsersTomDesktop
For example If i press the command button (Field name "Number" is 123) in form , then automatic open named "123" folder inside named "member" folder
What is the Command button Code ?
View 4 Replies
View Related
Feb 19, 2015
I am simply trying to create a command button to open a folder on my desktop
Cannot seem to find this code
This is the path to the folder I want to open
C:UsersJONATHANDesktopCMS FILES
View 4 Replies
View Related
Jan 24, 2014
FilePath = CurrentProject.path
I am currently using this path, but I moved my database folder into another folder so people won't mess with it. I still need to create files to the original directory. How can I make the FilePath still relative but up one folder from CurrentProject.path?
View 5 Replies
View Related
Oct 25, 2014
I'm trying to write a simple little database. At one point on a form, I'm trying to merge all the pdf files in a particular folder. (I'm using the pdftke.exe program and there will be multiple pdf files)
It all works perfectly if I call it as below, with the actual paths already hard coded. It combines all the pdf files and renames it to the "merged filename.pdf" correctly
Dim stAppName1 As String
stAppName1 = "C:a folder namepdftk.exe C:another folder nameprints*.pdf cat output C:folder where merged file will bemerged filename.pdf"
Call Shell(stAppName1, 1)
However, I'm trying to have it work with the middle portion (the folder where all the pdf files are) being created on the fly so to speak.
The middle portion/path I have stored from a previous form and it's stored in a table.
So I'm trying the below, but doesn't seem to work.
Dim stAppName1 As String
Dim combine_files As String
combine_files = (this pulls a path from a stored field on the open form) + "" + CStr("*.pdf")
stAppName1 = "C:a folder namepdftk.exe (combine_files) cat output C:folder where merged file will bemerged filename.pdf"
Call Shell(stAppName1, 1)
With the code above, it doesn't seem to do anything.
View 2 Replies
View Related
Aug 26, 2014
I believe this is most recurring scenario for all. Any simple way like:
Code:
For each file in folder.files
Msgbox File.Name
Next File
For your information the above code doesn't work
View 10 Replies
View Related
Feb 28, 2014
I need to create a function that I can launch using a macro that will copy an excel file from one folder to another in the file system.
View 4 Replies
View Related
Dec 12, 2014
I have a form which has a field called quote directory, this contains the path of the quote documents and sub folders, I also have a field called project directory.
When a quote is confirmed I have it all working so a new folder is created with specfic details like project number etc.What I want to do is move the folder from the quote directory and put it in the newly created folder in the project directory.
View 2 Replies
View Related
Oct 21, 2013
I added to my database a button to ouput the data to PDF. It works as it should. We do print out the letters in paper and put a copy in the folder from the client (connected with the ID nr). From time to time we need to attach a PDF document to the letter and combine it. My question is now if it is possible to have some code to the button that when it finish the output to PDF it will combine all the PDF files that are in the folder and put it in a second folder. After that, I need to put the combined PDF in another folder.
View 6 Replies
View Related
Jun 22, 2013
I want Access to create a folder for every new record that is added to the database, and the folder name has to be a value of that record.
To make it clear: [URL] ....
The foldername has to be "123456789" for the first record.
View 7 Replies
View Related
Jun 12, 2013
I use code to check folder as below.
If the folder not exists, then create it.
If dir(myfolder) = "" then
mkdir(myfolder)
end if
How to add code to check empty folder, like below?
If dir(myfolder) = "" then
mkdir(myfolder)
else if empty(myfolder) then //there is no empty function in access
do something
end if
View 2 Replies
View Related
Jan 30, 2015
I have the below code to create email and folders based on data from the database. For now, I'm able to create the main folder and add a word document inside. What could be changed on the code or added to add 2 sub folder named "Documents" and "Correspondence"
Greetings.
Code:
Option Compare Database
Private Sub SendEmail_Click()
On Error GoTo Err_open_word_Click
[Code].....
View 6 Replies
View Related
Sep 26, 2013
I put in contracts in a form in Access.
Each contract has a Special ID. it's called mietvertragsnummerID (German Word).
Now i want by pressing a button, that for the choosen ID, a pdf, which gets saved in a seperate Folder, gets opened.
So i have the ID 18. (in the form in Access)
In the Folder M:FBGrimmSuW was saved the contract with the Name:
Mietvertrag18.
I've created the following code, but it doesn't work.
Code:
Private Sub Befehl4065_Click()
Dim sPath As String
sPath = "M:FBGrimmSuW" & "Mietvertrag" & Me.MietvertragsnummerID & ".pdf"
End Sub
View 2 Replies
View Related
Feb 7, 2014
I used to have a code that we used to copy data from a folder that was on the desktop using the code below.
Code:
DoCmd.CopyObject "C:Documents and SettingsAll UsersDesktopWetcleans
This does not work with windows7. I have tried the C:USERSPUBLICDESSKTOPWetcleans but that does not seem to work either. How to access a folder on the desktop ?
View 2 Replies
View Related
Oct 9, 2014
I am trying to define a path to identify a current folder - I'll try and explain the way the following code works first (and it does work 100%)
The following code identifies folders and sub-folder structures and imports them (their structures and folder paths and filenames) into a DB
It also simultaneously retrieve's any xml docs within those respective folders and imports the XML data into the same database ........ and then moves those folders into a "processing folder" location.
Cool yes, but I can only import the XML doc's at the moment, by hard coding the path (like this):-
path = "C:UsersjeremybDesktopsnapmadXYZ123XYZFILES 0061940"
The code is highlighted as above - in the FULL code below:
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Code Begins:-
Option Compare Database
Option Explicit
[Code]....
View 2 Replies
View Related
Sep 4, 2013
In order to act as a system, I would like to have a function or windows firstly displayed all the folder names in a drive, and then allow user to locate/select freely a folder among different folders. Is there anything for my reference or for me to start??
View 4 Replies
View Related
Jul 25, 2013
I'm trying to check a directory for a folder name which has a certain string in it (RecNum)
However the fso object filesys.FolderExists does not take an argument when looking for part of a folder name on a particular path.
What I basically want to do is look in a directory for a folder with the RecNum variable as part of the folder name. if it exists open it, if not create it.
This is how far i've got:-
targetdir = targetpath & RecNum & ChannelPartner & Enduser
Set filesys = CreateObject("Scripting.FileSystemObject")
If filesys.FolderExists(targetdir) Then GoTo function_end
MkDir targetdir
If filesys.FolderExists(copypath) Then
filesys.CopyFolder copypath, targetdir
End If
MsgBox ("folder created")
function_end:
Shell "Explorer.exe /n,/e," & targetdir, vbNormalFocus
View 6 Replies
View Related
