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

[DanteLord]

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ı

[velociraptor]

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

[DanteLord]

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

[DanteLord]

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

[velociraptor]

Geri bildirim çin teşekkürler