Avatar billede southwave Nybegynder
31. januar 2007 - 11:43 Der er 2 kommentarer

konvertering til vb script

Hejsa..

er der en der kan hjælpe mig gennem til at få lavet dette script om til et vb script :)

IF EXIST \\itpdk-srv1\brugere$\%username%\itpdk\test3.prf GOTO :end
mkdir \\itpdk-srv1\brugere$\%username%\itpdk
attrib +h h:\itpdk
Copy \\itpdk-srv1\netlogon\test3.prf \\itpdk-srv1\brugere$\%username%\itpdk\test3.prf
\\itpdk-srv1\\netlogon\\outlook.exe /importprf \\itpdk-srv1\\netlogon\\test3.prf

:end
Exit
Avatar billede mcgoat Nybegynder
31. januar 2007 - 11:46 #1
måske du kan bruge lidt her? :)

<%
dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
filesys.CreateTextFile "c:\somefile.txt", True
If filesys.FileExists("c:\somefile.txt") Then
  filesys.DeleteFile "c:\somefile.txt"
  Response.Write("File deleted")
End If
%>

http://www.devguru.com/technologies/vbscript/quickref/filesystemobject.html
Avatar billede medions Nybegynder
31. januar 2007 - 13:01 #2
Set filesys = CreateObject("Scripting.FileSystemObject")
filesys.CreateTextFile "c:\somefile.txt", True
If filesys.FileExists("c:\somefile.txt") Then
  filesys.DeleteFile "c:\somefile.txt"
  MsgBox("File deleted")
End If


Sådan vil jeg nærmere mene det skulle være hvis det er ren VBScript ;o)

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester