I just need a quick, easy answer

[dimava]

I forgot how to do this, but I want to see if a folder already is alread there, and if not, I want to create so can someone please fix the code for me:

      if (the folder is already there) then
      Open "C:\dimas password\01.dat" For Output As #1
      Write #1, txtfn.Text, txtln.Text
      Close #1

      ELSE: MkDir "C:\dimas password\"
      Open "C:\dimas password\01.dat" For Output As #1
      Write #1, txtfn.Text, txtln.Text
      Close #1


      End If

[BruceG]

If Dir("C:\dimas password\") <> "" Then ...

[dimava]

thanks aloT!!!!

[Rodik]

object.FolderExists(folderspec)

where object is the name of a FileSystemObject and folderspec is the folder name.

[dimava]

I have another problem:

If Dir("C:\dimas password\") <> "" Then


        Open "C:\dimas password\01.dat" For Output As #1
        Write #1, txtfn.Text, txtln.Text
        Close #1
        
Else:
MkDir "C:\dimas password\"

Open "C:\dimas password\01.dat" For Output As #1
Write #1, txtfn.Text, txtln.Text
Close #1
        
        
End If

the problem is that an error comes up when I run the program, I click debug and the yellow thign is pointing to where it ways:

MKDIR "C:\ dimas password\"

[Rodik]

cause if c:\dimas password\ exist but is empty, then it returns "" as well, so going to MkDir would crash it.

It also returns "" is the folder contains hidden files.

Use the method mentioned above.

[dimava]

I don't think that I quite under stand what you wrote above, can you please put it so that it works in my case:

object.folderexists(something)

[Rodik]

btw... to create a FileSystemObject use:

Set fso = CreateObject("Scripting.FileSystemObject")

then

If fso.FolderExists(anyFolder) Then

Good luck

[dimava]

where do I put this:

       Set fso = CreateObject("Scripting.FileSystemObject")

Also, for how many years have you been learning VB (if not a secret)

[Rodik]

You can put the declaration wherever you want, preferably somewhere where it would run before fso is called. Like a module or Form_load or something..

And I've been programming in vb since 89, so I guess that makes it 11 years..

[dimava]

Ok, thanks, it worked!!!

WOW you've been programming for 11 years WOW!!!!

do you work at some big company or something?

[BruceG]

I stand corrected. The FSO, not the Dir function was the way to go for this problem.

[dimava]

one more question, how do I check if a file already exists

[Rodik]

It's the same

Just replace FolderExists with FileExists

(and a filename within parentesis)

object.FileExists(filenamewithpath)

I'm not employed no I'm just still a student... but soon maybe..

[dimava]

Ok, thanks for your help

[Rodik]

You're welcome, anytime!