Visual Basic

How to set a directory hidden?

2-Mar-06 4:10

You might want to ask this in the ASP.NET forum. I'd say yes you can in a Windows Forms app, because all you do is set the DataSource, but I don't know if it would work in ASP.NET.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

cylix20001-Mar-06 14:29

cylix2000

1-Mar-06 14:29

I have create a directory by
system.io.directory.createDirectory("C:\temp\")

How can I set it as hidden?

Thank you

Re: How to set a directory hidden?

Klazen1-Mar-06 15:56

Klazen

1-Mar-06 15:56

Microsoft.VisualBasic.SetAttr(FilePath, FileAttribute.Directory + FileAttribute.Hidden)
Where FilePath is the directory you want to set. There are a few more constants, and you can play around with them to get different results.

Re: How to set a directory hidden?

cylix20001-Mar-06 22:21

cylix2000

1-Mar-06 22:21

Thank you first, but it seems doesn't work ...
I added
Microsoft.VisualBasic.SetAttr("C:\temp\", FileAttribute.Directory + FileAttribute.Hidden)
No error, but the directort still in normal, not hidden.

Re: How to set a directory hidden?

Omar Mallat2-Mar-06 2:22

Omar Mallat

2-Mar-06 2:22

simply:
FileSystem.SetAttr("D:\aaa", FileAttribute.Hidden)
note that there is no \ at the end of a path

it should work

OmarMallat

vb.net sockets problem

Robert Rowley1-Mar-06 9:51

Robert Rowley

1-Mar-06 9:51

I been trying to migrate a client-server system where the client app (many instances out in the field now) is written in VB6 and uses Winsock controls to communicate with a server app over TCP/IP connections. The old server app written in VB6 also using Winsock controls works fine, but as I migrate the server app to VB.NET and use .NET socket objects, the system intermittantly hangs. The server .NET app receives the data from the VB6 clients just fine, but when it sends back the responses (especially if it is a large, multi-packet response) it hangs -- as if the last packet never arrived, and the .NET socket closed before the receiving Winsock control had a chance to finish collecting data (through iterative DataArrived event handler calls). Anyone have any ideas on how to overcome this? (yes, eventually the client apps need migration to .NET also, but for now they remain in VB6)

transparent textbox/richtextbox

randomGirl0071-Mar-06 9:49

randomGirl007

1-Mar-06 9:49

Does anyone know how to make a textbox/richtextbox backcolor transparent? VB Code/demo would be appreciated.

thanks
amy

Re: transparent textbox/richtextbox

Klazen1-Mar-06 15:36

Klazen

1-Mar-06 15:36

As far as I know, it is not possible. Here is an example of code you could use:
RichTextBox1.BackColor = Color.FromArgb(Convert.ToInt32("80FFFFFF", 16))
Where "80FFFFFF" is the color, in ARGB form, and A is the alpha component, meaning opacity. At runtime, the exception is thrown that RichTextBoxes do not support transparent backgrounds. Forms have an opacity option, which means that transparency is just not supported by these controls. Specially made controls that do support opacity may be the best option, such as this: Alpha Blend Text Box by Bob Bradley[^]

Folder attributes problem

Quecumber2561-Mar-06 7:38

Quecumber256

1-Mar-06 7:38

Hello Everyone:
I want to make a program that incorporates an explorer style user interface. The left hand side shows a tree structure of drives and folders. While the right hand side shows a list of the files inside a selected folder.

Inside VB 6 there is a simple routine called ShowFolderList. I have modified it a bit to show the attribute number for each folder the routine returns.

Here is the modified routine:
Sub ShowFolderList(strPath As String)
Dim fs, f, f1, fc, s
Dim Attr As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(strPath)
Set fc = f.SubFolders
For Each f1 In fc
Attr = GetAttr(strPath & f1.Name)
Debug.Print f1.Name & " Attr: " & CStr(Attr)
Next
End Sub

I’m sending in “C:\” as the path, because I want a list of all the folders on this hard drive. I’m also listing the Attribute number for each folder. Now here is the noggin scratchier. When I show a list of the folders I returned I see some attribute numbers that are not defined in the attributes constants in VB.

Here is the list I get from my laptop using the above routine:
Adv_Basics Attr: 16
Adv_Doc_Production Attr: 16
Backup_Exp Attr: 16
Config.Msi Attr: 22
Cosmetology Attr: 16
Documents and Settings Attr: 16
Program Files Attr: 17
RECYCLER Attr: 22
SHFileOperation Attr: 16
swsetup Attr: 16
System Volume Information Attr: 22
SYSTEM.SAV Attr: 16
TreeView_Test Attr: 16
WINDOWS Attr: 16

I’m interested in only the folders on the hard drive. So the folders with a 22 attribute need not be shown. But the Programs Files folder has an attribute number of 17, and 17 is not defined as a directory. A directory or folder attribute number is 16.

So my first question is: Why is the Program Files folder attribute a 17? And the second one is: How can I modify the routine to return only unhidden folders and non-system folders?

Thank you

Quecumber256

Dave Kreskowiak1-Mar-06 9:00

1-Mar-06 9:00

This is the combination of 2 or more attributes.

In your case, 17 is a combination of ReadOnly (1) and Directory (16). 22 is a combination of Directory (16), System (4), and Hidden (2). 16+4+2 = 22.

If you wanted to check for these attributes being turned set, all you have to do is a little binary math:

If ((attribValue & 4) > 0) Or ((attribValue & 2) > 0) Then
    ' At least one of the System (4) or Hidden (2) attributes are set
Else
...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

-- modified at 15:00 Wednesday 1st March, 2006

Quecumber2561-Mar-06 9:41

Quecumber256

1-Mar-06 9:41

Dave,
Bare with me on this. I looked at the properties on the other folders, they are set to read-only, but their attribute numbers are 16. Why don't they show a 17 like the Program Files folder?

Your IF Statement will help when I list out the folder names.

Thank you,

Quecumber256

Dave Kreskowiak1-Mar-06 11:54

1-Mar-06 11:54

No idea. I've never seen the problem before and I can't verify it on the machine I'm using. Are you sure you're matching up the filename with the correct attribute number?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Quecumber2561-Mar-06 12:42

Quecumber256

1-Mar-06 12:42

Dave,
With VB I'm not sure of anything. Did you try the little routine I sent in the first post? That is the one I'm using and as far as I can tell it is matching the correct attribute number to the correct folder name.

The list I sent of the file names are the results I'm getting running it on my laptop.

Thanks,

Quecumber256

Dave Kreskowiak1-Mar-06 12:56

1-Mar-06 12:56

OK. The list you posted is correct. Are you sure you're right-clicking the same folder name?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Guffa1-Mar-06 13:12

Guffa

1-Mar-06 13:12

Quecumber256 wrote:
they are set to read-only, but their attribute numbers are 16.

No, they are not set as read-only. What you see in the properties for the folder is not the read-only status for the folder, but something that is supposed to represent the read-only status of the files in the folder. (This doesn't work very well, though.)

There actually does not exist anything as a read-only attribute for a folder. A folder can not be read-only. Period. Windows uses that bit to flag that the folder is as a linked directory.

source[^]

So, for directories you can ignore the read-only bit. As long as you don't access the disk from a different operating system, it doesn't mean anything to you.

---
b { font-weight: normal; }

Vb.Net Forms Issue

projectcode11-Mar-06 7:01

1-Mar-06 7:01

Hi,

I am working on windows application. I have a form1 and when I click on a button in form1, it shows form2. I perform some Db operations in that form and then close it. When I close the form, I want the form1 to get loaded again. Form2 is not an MDI form. How can I implement this?
Can anyone please help with this?

Thanks!!

Dave Kreskowiak1-Mar-06 8:26

1-Mar-06 8:26

projectcode1 wrote:
I want the form1 to get loaded again.

Based on wht you described, it should still be there. What code did you do to instantiate and Show Form2? What code did you put in to make Form1 vanish?

Also, VB6, or VB.NET?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

projectcode11-Mar-06 8:41

1-Mar-06 8:41

Thanks for your reply!!
It's in VB.Net. You are right the form is still there but I want to refresh the data in the datagrid and combobox in form1 after I made some changes to the Db using form2.
I can now load the form using call load() but the combobox or datagrid doesn't show the new value. The Db has the new value. Page is not getting repainted or refreshed!!

Any help will be appreciated.

Thanks.

Dave Kreskowiak1-Mar-06 9:03

1-Mar-06 9:03

projectcode1 wrote:
I can now load the form using call load()

What??? Where did this come from?

If Form1 depends on changes being made to the database by Form2, Form2 should be shown as a dialog, where Form1 waits for Form2 to close, then continues on. Something like this:

Dim newForm As New Form2
newForm2.ShowDialog()      ' This is a blocking call, so Form1 will wait for Form2 to close!
' Refresh database objects here...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Tyrone_whitey1-Mar-06 9:45

Tyrone_whitey

1-Mar-06 9:45

That seems right. Are you trying to perhaps close one form and open another??

Ty

projectcode11-Mar-06 10:16

1-Mar-06 10:16

HI Again,
thanks for your reply.

I did the same but how do i refresh the combox and datagrid in form1. The new value are not seen in the form1.

Thanks a lot!

Dave Kreskowiak1-Mar-06 11:32

1-Mar-06 11:32

How did you populate them in the first place? Same thing, only run it again after Form2 closes (returns from the ShowDialog call). This should NOT be done from Form2!

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

projectcode12-Mar-06 3:48