i want to make a button wich will give me link of that folder from Windows tree, wich i chose.............
Sorry for my English:))
I take it you are using the DriveListBox, DirListBox, and FileListBox, well maybe not the FileListBox but with the DriveListBox it is as simple as this...
Private Sub Command1_Click() MsgBox Dir1.Path End Sub
hi, tanks vor help, bat i have a code wich give mi to choose a file
public Function FileFromWindowsTree()
Dim OFName As OPENFILENAME
OFName.lStructSize = Len(OFName)
'Set the parent window
OFName.hwndOwner = Application.hWndAccessApp
'Set the application's instance
'OFName.hInstance =Application. app.hInstance
'Select a filter
'OFName.lpstrFilter = "Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
OFName.lpstrFilter = "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
'create a buffer for the file
OFName.lpstrFile = Space$(254)
'set the maximum length of a returned file
OFName.nMaxFile = 255
'Create a buffer for the file title
OFName.lpstrFileTitle = Space$(254)
'Set the maximum length of a returned file title
OFName.nMaxFileTitle = 255
'Set the initial directory
OFName.lpstrInitialDir = "C:\"
'Set the title
OFName.lpstrTitle = "Open File"
OFName.Flags = 0
'Show the 'Open File'-dialog
If GetOpenFileName(OFName) Then
FileFromWindowsTree = Trim$(OFName.lpstrFile)
FileFromWindowsTree = ""
with this i choose file, bat i wont to choose folder , where i'll save some files later....
can you help me with this??:)
thanks fo link:)
Hey, so I wanna ask how I need to create a method who will remove word if in that word is 2 same chars. Example: "Potato" in this word there is a 2 "o" chars so this word will need to be removed. "Forum" in this word there is no ...
Hi I'm having a problem implementing a mini shopping cart drop down in the header to show the user all the products they have in their shopping cart. It seems the only solution for this is Ajax, and I've looked all over and can't find anything that I could possibly ...
Hi. Im using vb 2010. I want to dynamically add textboxes to my form by clicking on a button. I've google searched and so far this code worked:
Private Sub btn_addline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_addline.Click Dim txtB1 As New TextBox Dim i For i = ...