---
title: "FileSystemObject"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/57917-filesystemobject"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "colione"
published: "2002-11-04T03:22:29.000Z"
updated: "2002-11-05T23:40:22.000Z"
replies: 6
views: 275
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/57917-filesystemobject"
---

# FileSystemObject

## #1 — colione, 2002-11-04T03:22Z

Det var ett bra tag sen nu som jag höll på med ASP. Jag har nu på senare tid mest suttit med klientprogrammering och sådant.

Jag kände nu för at plocka upp lite gamla kunskaper med kom då på att de äro helt döda. Kan någon hjälpa mig med detta:

```
<% @LANGUAGE="VBScript"%>
<% Response.Buffer=TRUE%>
<%
  Set MyFSO = Server.CreateObject("Scripting.FileSystemObject")
  Set MyFolder = Blaha
  Set MyFile = Blaha.txt
  If MyFSO.FolderExists(MyFolder) = True AND MyFSO.FileExists("" & Server.MapPath() & "/" & MyFolder & MyFile) = False  Then  
  MyFSO.MoveFile(Server.MapPath() & MyFile, Server.MapPath() & MyFolder & MyFile)
  Else
  MyFSO.CreateFolder(MyFolder)
  MyFSO.MoveFile(Server.MapPath() & MyFile , Server.MapPath() & MyFolder & MyFile )
%>
```

 

Jag får felet:

Feltyp:
Microsoft VBScript compilation (0x800A0414)
Cannot use parentheses when calling a Sub
/Default.asp, line 8, column 79
**MyFSO.MoveFile(Server.MapPath() & MyFile, Server.MapPath() & MyFolder & MyFile)**

Permalänk: https://www.webforum.nu/p/57917

## #2 — @nders, 2002-11-04T05:52Z

Har du provat att ta bort de yttre parenteserna, som felmeddelandet föreslår?

Permalänk: https://www.webforum.nu/p/843946

## #3 — OveRRidE, 2002-11-04T07:07Z

Server.mappath är en funktion som måste ha en parameter för att returnera ett giltigt värde. Dessutom har du glömt ett par \\.

```
<% @LANGUAGE="VBScript"%>
<% Response.Buffer=TRUE%>
<%
  Set MyFSO = Server.CreateObject("Scripting.FileSystemObject")
  Set MyFolder = Blaha
  Set MyFile = Blaha.txt
  If MyFSO.FolderExists(MyFolder) = True AND MyFSO.FileExists("" & Server.MapPath(".") & "\" & MyFolder & "\" & MyFile) = False  Then  
  MyFSO.MoveFile(Server.MapPath(".") & "\" & MyFile, Server.MapPath(".") & "\" & MyFolder & "\" & MyFile)
  Else
  MyFSO.CreateFolder(MyFolder)
  MyFSO.MoveFile(Server.MapPath(".") & "\" & MyFile , Server.MapPath(".") & "\" &  MyFolder & "\" & MyFile )
%>
```

Skrivet direkt ur huvudet.

Permalänk: https://www.webforum.nu/p/843971

## #4 — colione, 2002-11-04T07:51Z

Ahh, tack så mycket, jag provar den när jag kommer hem.

Permalänk: https://www.webforum.nu/p/843998

## #5 — colione, 2002-11-05T01:37Z

Okej första delen löst, tack till dig OveRRidE.

Nu till ytterliggare ett fel som genereras:

```
<% @LANGUAGE="VBScript"%>
<% Response.Buffer=TRUE%>
<%
  Dim MyFolder, MyFile, MyFSO
  Set MyFSO = Server.CreateObject("Scripting.FileSystemObject")
  Set MyFolder = "Blaha"
  Set MyFile = "Blaha.txt"
  If MyFSO.FolderExists(MyFolder) = True AND MyFSO.FileExists(Server.MapPath(".") & "\" & MyFolder & "\" & MyFile) = False  Then  
  MyFSO.MoveFile Server.MapPath(".") & "\" & MyFile, Server.MapPath(".") & "\" & MyFolder & "\" & MyFile
  Else
  MyFSO.CreateFolder(MyFolder)
  MyFSO.MoveFile Server.MapPath(".") & "\" & MyFile , Server.MapPath(".") & "\" &  MyFolder & "\" & MyFile
  end if
  Set MyFSO = Nothing
  response.write "Objektet "& MyFile &" skapades som det skulle!"
%>
```

Felmeddelandet ser ut såhär:
Feltyp:
Microsoft VBScript runtime (0x800A01A8)
Object required: '\[string: "Blaha"\]'
/Default.asp, line 6

Permalänk: https://www.webforum.nu/p/844772

## #6 — PatrikB, 2002-11-05T07:47Z

Ta bort Set framför Set myFolder och Set myFile .... de är strängar, inga objekt.

cya,
PatrikB

Permalänk: https://www.webforum.nu/p/844816

## #7 — colione, 2002-11-05T23:40Z

tack

Permalänk: https://www.webforum.nu/p/845529

---

Tråden på webben: https://www.webforum.nu/amne/asp/57917-filesystemobject