• VBS Script klasörü oluşturuyor ama dosyaları taşımıyor

Merhaba arkadaşlar,

Aşağıdaki script te klasör oluşturma ve oluşturulan klasöre dosya yolundaki verile taşıma işlevi görüyor fakat klasörü oluşturuyor ama dosyaları taşımıyor hata veriyor

Kod: Tümünü seç

'Create the file system object for creating folders
Set objFSO = CreateObject("Scripting.FileSystemObject")    
    
'Create A Folder With A Name Given By The User
ParentFolder = "Y:\data\data1\Yedek\"
set objShell = CreateObject("Shell.Application")
set objFolder = objShell.NameSpace(ParentFolder)
foldername=inputbox ("Lütfen Arsiv Ayını Girin")
objFolder.NewFolder (foldername)

'Move the files and folders in to the new folder
'objFSO.MoveFile "D:\data\Formlar\Form\*.xls" , "foldername"
'objFSO.MoveFolder "D:\data\Formlar\Form\*.xls" , "foldername"
objFSO.CopyFile "D:\data\Formlar\Form\*.xls" , "foldername"

[b]HATA : [/b]

Kod:	D:\data\Formlar\Arsivle.vbs
Satır:	14
Karakter:	1
Hata:	Yol bulunamadı
Kod:	800A004C
Kaynak: 	Microsoft VBScript çalışma hatası

Bence üstteki script te mantık hatası var şöyleki :
objFolder.NewFolder ile girdiğiniz isimde bir klasör oluşuyor Güzel fakat
objFSO.MoveFolder "D:\data\Formlar\Form\*.xls" , "foldername"

aynı anda kırmızı ile işaretlediğim foldername de girilen klasör ismi otomatik olarak oluşmalıdır yoksa zaten hiçbir anlamı yok ve neyazıkki script bunu oluşturmuyor , bu şekli ile bu script hatalı görünüyor , elle girerek oluşturduğunuz dosya isminin foldername de olması gerekir , eğer dosya ismini otomatik olarak oluşturtmak önemli değilse basitça aşağıdaki kodlardan birini de kullanabilirisiniz

Kopyala klasöründeki bütün .txt dosyalarını D:\deneme klasörüne taşır

Kod: Tümünü seç

Dim ObjFso
Dim SourceLocation
Dim DestinationLocation
Dim SourceFileName
Dim DestinationFileName
 
SourceLocation = "C:\kopyala"
DestinationLocation = "D:\deneme"
 
'All text files will be copied to destination
SourceFileName = "*.txt"
 
'Creating the file system object
Set ObjFso = CreateObject("Scripting.FileSystemObject")
 
'Copying the file
ObjFso.MoveFile SourceLocation & "\" & SourceFileName, DestinationLocation & "\"

D de MyFolder isimli bir klasör oluşturup C:\kopyala\ içerisindeki tüm .txt leri onun içine taşır

Kod: Tümünü seç

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")

' Create a new folder
oFSO.CreateFolder "D:\MyFolder"

' Copy a file into the new folder
' Note that the destination folder path must end with a path separator (\)
oFSO.CopyFile "C:\kopyala\*.txt", "D:\MyFolder\"

oFSO.CopyFile yerine oFSO.MoveFile de kullanabilirsiniz ilki kopyalar ikincisi taşır

velociraptor,
Klasör oluşturmak önemli olmasa paylaştığın scripler iş görürdü, yardımın için teşekkür ederim.

Scriptin adam gibi çalışanını buldum bazı arkadaşların işine yara belki..

Kod: Tümünü seç

Set objFSO = CreateObject("Scripting.FileSystemObject")

ParentFolder = "Y:\data\data1\Yedek"
foldername = InputBox("...")

destination = objFSO.BuildPath(ParentFolder, foldername)
objFSO.CreateFolder destination
objFSO.CopyFile "D:\data\Formlar\Form\*.xls", destination

Geri bildirim çin teşekkürler

VBS Script klasörü oluşturuyor ama dosyaları taşımıyor

VBS Script klasörü oluşturuyor ama dosyaları taşımıyor

Re: VBS Script Yardım

Re: VBS Script Yardım

Re: VBS Script Yardım

Re: VBS Script Yardım