Making a folder using VB

[connormac]

can someone tell me why this will not work

code:

---

 If Not FSO.FolderExists("WaikikiMSPrograms" &companyname) Then 

Call FSO.CreateFolder("WaikikiMSPrograms" &companyname)

---

It is suppost to look and see if there is a company name like the one you type in at a prompt, but it just puts another folder with the same name. It doesn't even pop up and tell me that there is a folder already with the same name.

 

it use to be

code:

---

If Not FSO.FolderExists("C:WORK" &companyname) Then 

Call FSO.CreateFolder("C:WORK" &companyname)

---

and it worked fine. when I tried to change it to work on network it started happening???

[Bullines]

I'm not sure if the FileSystemObject can use UNC paths. Let me get back to you on that. In the mean time, try mapping a drive to that network location instead.

[connormac]

will try. Thanks

[Bullines]

Ok, FileSystemObject does support UNC paths just fine. I wrote this to test:

 

code:

---

Const DEF_PATH = "REMOTECOMPUTERSome FolderChris"

Const DEF_DPATH = "connormac"

Const DEF_FNAME = "Test.txt"

Const DEF_FSO_READ = 1

 

Call Main()

 

Sub Main()

Dim objFSO

Dim objTS

Dim objNewFolder

 

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

 

' Can we access UNC paths?

If objFSO.FolderExists(DEF_PATH) Then

ShowString "Yup, it's here"

Else

ShowString "Nope"

End If

 

' Can we create new directories using UNC paths?

Set objNewFolder = objFSO.CreateFolder(DEF_PATH & "" & DEF_DPATH)

 

If (objNewFolder Is Nothing) Then ShowString "We can create that directory here"

 

' Can we read files using UNC paths?

Set objTS = objFSO.OpenTextFile(DEF_PATH & "" & DEF_FNAME, DEF_FSO_READ, False)

 

Do While(objTS.AtEndOfStream <> True)

strTempLine = Trim(objTS.ReadLine)

 

ShowString "From the file: " & strTempLine

Loop

 

Set objFSO = Nothing

Set objTS = Nothing

 

ShowString "Done!"

End Sub

---

The next thing I'd ask is...do you have permission to create directories in that network location?

[connormac]

Bullins,

Changed

 

If Not FSO.FolderExists("WaikikiMSPrograms" &companyname) Then

Call FSO.CreateFolder("WaikikiMSPrograms" &companyname)

 

to

 

If Not FSO.FolderExists("F:" &companyname) Then

Call FSO.CreateFolder("F:" &companyname)

 

It does the same thing. creates a new folder.

But if I create a folder "TEST" using the VB. Then create the folder "TEST" again it works right. It is like it is not looking at the folders that were already created on the network???

[Bullines]

quote:

---

It does the same thing. creates a new folder.

But if I create a folder "TEST" using the VB. Then create the folder "TEST" again it works right. It is like it is not looking at the folders that were already created on the network???

---

Huh?

 

Maybe give me an example with full paths that you want/will be using. Then we'll get this all sorted out

[connormac]

'////////////////////////////////////////////////////////////////////////////////

'//

'// Author: Mick George [email protected]

'// Date: 16/09/2003 12:58 PM

'// File Name: Creat MS Folfer.VBS

'//

'// Description: Creat MS Folder

'//

'// Comments: '////////////////////////////////////////////////////////////////////////////////

'//

'// Author: Mick George [email protected]

'// Date: 16/09/2003 12:58 PM

'// File Name: Creat MS Folfer.VBS

'//

'// Description: Creat MS Folder

'//

'// Comments:

'//

'////////////////////////////////////////////////////////////////////////////////

 

 

'///////////////// My Constants /////////////////

 

 

'///////////////// My Global Variables //////////

 

 

' -- Start Script

Call Main()

 

 

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Main()

 

On Error Resume Next

 

 

Dim companyname

Dim Program

 

Do 'ask until a real company name is entered

companyname=AskString("Company Name?")

Loop While companyname="Company Name?" Or companyname="((ESC))" Or companyname=""

 

Do 'ask until a real program number is used

Program=AskString("Part number?")

Loop While Program="Part number?" Or Program="" Or Program="((ESC))"

 

 

If Not MakeFolders(companyname, Program) Then

ShowString "Failed to create folders, aborting script"

Exit Sub

End If

 

 

End Sub

 

' ////////////////////

' Function Declaration

' ////////////////////

 

Public Function MakeFolders(companyname, Program)

 

On Error Resume Next

 

' -- Check to see if folders exist

Dim FSO

 

Set FSO = CreateObject("Scripting.FileSystemObject")

 

'

' -- This is kinda long winded but does the job

' -- NOTE: If you use an invalid character for a part number you'll have a problem!

 

If Not FSO.FolderExists("F:" &companyname) Then

Call FSO.CreateFolder("F:" &companyname)

End If

 

If Not FSO.FolderExists("F:" &companyname & "" & Program) Then

Call FSO.CreateFolder("F:" &companyname & "" & Program)

End If

 

If Err Then

MakeFolders = False

Else

MakeFolders = True

End If

[Bullines]

So like the path that you're trying to create on your network is something like this?

 

WaikikiMSPrograms[company_name_they_entered]

 

And it doesn't do it?

[connormac]

Yes, but if the company name is already there it shouldn't recreate the folder

[Bullines]

Right. So in the case of a company already being there, do you end up in the code block that tries to create the folder?

 

code:

---

If Not FSO.FolderExists("WaikikiMSPrograms" & companyname) Then

ShowString "If the path to this company's folder already exists, you should not see this message."

FSO.CreateFolder("WaikikiMSPrograms" & companyname)

End If

---

[connormac]

no it just creates another folder.

[Bullines]

So let me get this straight. If you have a folder that already exists called:

 

WaikikiMSProgramsAcme

 

And then the script gets to here:

 

code:

---

' In this example, the companyname variable contains a value "Acme"

 

 

If Not FSO.FolderExists("WaikikiMSPrograms" & companyname) Then

ShowString "If the path to this company's folder already exists, you should not see this message."

FSO.CreateFolder("WaikikiMSPrograms" & companyname)

End If

---

It creates a folder called:

 

WaikikiMSProgramsAcmeAcme

 

Am I understanding it right?

[connormac]

No if there is already a company named WaikikiMSProgramsAcme

it will create another folder named WaikikiMSPrograms Acme

 

but it does look like there is a space in front of the folder name I create with the VB. maybe it is the space??? if so how do I get rid of the space

[connormac]

It seem when the prompt area comes up it it already 1 space away from the edge. if I backspace to edge then put in Acme it works right. With out backspacing it seems to to put in a space before the company name and the program name?????

[Bullines]

quote:

---

but it does look like there is a space in front of the folder name I create with the VB. maybe it is the space??? if so how do I get rid of the space

---

To get rid of leading and trailing spaces in a string, use the Trim() function. So for example:

 

code:

---

Do 'ask until a real program number is used

Program=Trim(AskString("Part number?"))

Loop While Program="Part number?" Or Program="" Or Program="((ESC))"

---

Better?

[connormac]

Bullins,

Great that fixed it thank you so much. Now I will be able to fix 5 diffrent VB including MultiPost. Thank you so much!!!

[Bullines]

Np

[Bill]

Bullines, do you eat code cereal for breaky?

 

I just read but don't understand.

 

Good job.

[Bullines]

Peter: Brian, there's a message in my cereal. It says "OOOOOOO".

 

Brian: Peter, those are Cheerios.