Programming Forums > Application Development > Visual Basic

cloud- · Feb 11th, 2005, 2:17 PM

i need my program to end if a directory exists

Const ChkDir = 16
    If (Dir$("C:\path", ChkDir) <> "") Then
End
End If

but i also use:

Shell (SysDir & "\attrib.exe +H " & Directory)

to make the dir hidden
and when i use that to check it doesnt end i just get an error
>.<

please help tx

Ooble · Feb 12th, 2005, 8:19 AM

Instead of using SysDir & "\attrib.exe", why not just use "attrib"?

cloud- · Feb 12th, 2005, 10:18 AM

ok ill do that.
any idea how to check it exists?
if not
would it work if i checked if a file was in the folder if the files not hidden?

thanks

Ooble · Feb 12th, 2005, 6:22 PM

As far as I know, attrib is a system command, not a program. There's probably a Win32 API that does the same thing.

Rory · Feb 13th, 2005, 5:32 PM

Try
vba.Dir("C:\hiddenfile.txt",vbHidden)
or to make it hidden:
SetAttr "C:\hiddenfile.txt, vbHidden
- always check to see if VB does it itself!

cloud- · Feb 14th, 2005, 5:11 AM

thanks alot ^_^

Feb 11th, 2005, 2:17 PM	#1
cloud- Hobbyist Programmer Join Date: Jan 2005 Posts: 110 Rep Power: 4	checking if a hidden dir exists >_< i need my program to end if a directory exists (Toggle Plain Text) Const ChkDir = 16 If (Dir$("C:\path", ChkDir) <> "") Then End End If Const ChkDir = 16 If (Dir$("C:\path", ChkDir) <> "") Then End End If but i also use: (Toggle Plain Text) Shell (SysDir & "\attrib.exe +H " & Directory) Shell (SysDir & "\attrib.exe +H " & Directory) to make the dir hidden and when i use that to check it doesnt end i just get an error >.< please help tx

Feb 12th, 2005, 8:19 AM	#2
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Instead of using SysDir & "\attrib.exe", why not just use "attrib"? __________________ Me :: You :: Them

Feb 12th, 2005, 6:22 PM	#4
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	As far as I know, attrib is a system command, not a program. There's probably a Win32 API that does the same thing. __________________ Me :: You :: Them

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Feb 12th, 2005, 10:18 AM	#3
cloud- Hobbyist Programmer Join Date: Jan 2005 Posts: 110 Rep Power: 4	ok ill do that. any idea how to check it exists? if not would it work if i checked if a file was in the folder if the files not hidden? thanks

Feb 13th, 2005, 5:32 PM	#5
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	Try vba.Dir("C:\hiddenfile.txt",vbHidden) or to make it hidden: SetAttr "C:\hiddenfile.txt, vbHidden - always check to see if VB does it itself!

Feb 14th, 2005, 5:11 AM	#6
cloud- Hobbyist Programmer Join Date: Jan 2005 Posts: 110 Rep Power: 4	thanks alot ^_^

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

checking if a hidden dir exists >_<