Maj
17
2011
How-to // Script // VBS

Skapa mapp och fil

Author Skrivet av Tony    Comments Inga kommentarer

Nyfiken på VBS? Här följer en enkel kod som visar hur du skapar en mapp och en fil i mappen. Börja med att öppna notepad. Ta nedanstående kod och klistra in. Spara filen som create.vbs.

När du kör denna fil så kommer det skapas en mapp under c: som heter logs. I mappen så kommer en textfil skapas och en kort text sträng kommer skrivas i den. Genom Pop ups så får du reda på när allt är skapat och går allt bra så öppnas Explorer i c:logs.

Option Explicit
Dim objFSO, objFolder, objShell, objTextFile, objFile
Dim strDirectory, strFile, strText
strDirectory = "c:logs"
strFile = "textfil.txt"
strText = "Text i tetxtfilen"

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strDirectory) Then
Set objFolder = objFSO.GetFolder(strDirectory)
Else
Set objFolder = objFSO.CreateFolder(strDirectory)
WScript.Echo "Just created " & strDirectory
End If

If objFSO.FileExists(strDirectory & strFile) Then
Set objFolder = objFSO.GetFolder(strDirectory)
Else
Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
Wscript.Echo "Just created " & strDirectory & strFile
End If

set objFile = nothing
set objFolder = nothing

Const ForAppending = 8

Set objTextFile = objFSO.OpenTextFile _
(strDirectory & strFile, ForAppending, True)

objTextFile.WriteLine(strText)
objTextFile.Close

If err.number = vbEmpty then
Set objShell = CreateObject("WScript.Shell")
objShell.run ("Explorer" &" " & strDirectory & "" )
Else WScript.echo "VBScript Error: " & err.number
End If

WScript.Quit

Tyckte du om vad du läst? Skriv gärna en kommentar eller följ sidan via RSS så du inte missar framtida uppdateringar.

Om författaren av denna artikel: Tony

Pappa, TV-spelsnörd och en allmänt trevlig kille.

Skriv en kommentar

Spam protection by WP Captcha-Free

Annons

Google plus

Tony Hansson

Tony Hansson:
Tävling | TT-Line

Kommentarer: 014 May, 2012 12:02


Tony Hansson

Tony Hansson: Äntligen en bra uppdatering av Google+ appen till iPhone. Bra jobbat Google. Sjukt snygg!

Kommentarer: 012 May, 2012 11:42


Tony Hansson

Tony Hansson: ”Någonstans i en liten belgisk stad, på ett torg där inget nånsin händer, placerade vi en knapp och väntade på att någon skulle trycka på den.”

Så sjukt bra...

Kommentarer: 012 April, 2012 12:01